how to read final few lines from a file using PERL CODE ?

X

x34

New member
im doing project and in there i get sms from a user using smsservertool 3 and i want to read the message from user
the format is
**************************************************************************************************
From: 94778237564
From_TOA: 91 international, ISDN/telephone
From_SMSC: 9477000003
Sent: 10-04-21 08:55:56
Received: 10-04-21 14:26:20
Subject: GSM1
Modem: GSM1
IMSI: 413021503337172
Report: no
Alphabet: ISO
Length: 8

how to find the central bank kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhfsdfsdfsdfdsfdsfdsfdsfsdfdsfdfdsfsdfdsfdsfdsfkldsfhgfhrghdjsfghdsjgfsdjgjdsgjsdgfjdfjdsfsdf sdfhd can anyone help me there


**************************************************************************************************

so can anyone help me to get the only message from above format
so i always want to read lines after the "Length :" line and after that always is empty line .then start message .
sometimes this is one line and sometimes its few lines .so i want to read the all lines after empty line to the end of file using PERL .so can anyone help please
 
Back
Top