File Parsing via PERL Scripting

3 New Member

Hey Guys.I am a newbie on Perl.And I have a question about file parsing by perl.
I have a log file which contains reports about a communication machine.I need to take some of the reports from the log file.Its hard to explain the issue.but shortly I can say that the reports has a unique report no. and this report number is located at the 3rd line and at the end of the report.How can I parse these reports?(I need all of the lines like below.)
It is very important for me.I am waiting for your fast response
Thanking you in advanced.

For Example:

Expand|Select|Wrap|Line Numbers

 INITSX1                      2008-02-07  15:46:00  TH      

    PSW001    0130/000C/0005  

    SEQ=7734+2007-12-31 00104  00000000   M147AA03   M1SNSK04    

    SWA-CE LOAD                                                     
 
       ACTIVATE-CEOVLD-OBSERV                                         SUCCESSFUL

                                                           RESULT    PART 0001 -

       -------------------------------------------------------------------------

       REQUESTED START TIME: = 15:30

       REQUESTED STOP TIME : = 15:45

       PERIOD: = 00:15
 
       NO PROCESSORS IN OVERLOAD  
 
       REPORT FOLLOWS       NO = 00104

Feb 25 '08 #1

Subscribe Reply

1845

DjLethal

New Member

And a tiny part of the log is at the below:

Expand|Select|Wrap|Line Numbers

   INITSX1           2008-02-07  14:57:08  TH      

    PSW010    0130/000C/0004  

    SEQ=8323.2008-02-07 00098  00000000   M147AA03   M1SNSK04    

    SWA-SUBSEC ROUTING                                              
 
       EXTEND-TKG                                                     SUCCESSFUL

                                                           FINAL   RESULT 0006 -

       -------------------------------------------------------------------------

       DETAIL   = NORM                           

       TRUNKS RELEASED
 
       TKG                    TKSEQ TCESEQ STATE    FIFO   OBSERV

       LCEID    NA       LAN  TN/TS        TRAFFIC  GLARE  CONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4423      4 BLOCKED  TRUE   REMOVE

       H'A480   H'C21F    23     23        TRAL     TRUE   NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4424      4 BLOCKED  FALSE  REMOVE

       H'A480   H'C21F    23     24        TRAL     FALSE  NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4425      4 BLOCKED  TRUE   REMOVE

       H'A480   H'C21F    23     25        TRAL     TRUE   NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4426      4 BLOCKED  FALSE  REMOVE

       H'A480   H'C21F    23     26        TRAL     FALSE  NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4427      4 BLOCKED  TRUE   REMOVE

       H'A480   H'C21F    23     27        TRAL     TRUE   NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4428      4 BLOCKED  FALSE  REMOVE

       H'A480   H'C21F    23     28        TRAL     FALSE  NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4429      4 BLOCKED  TRUE   REMOVE

       H'A480   H'C21F    23     29        TRAL     TRUE   NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4430      4 BLOCKED  FALSE  REMOVE

       H'A480   H'C21F    23     30        TRAL     FALSE  NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------

       HDR1AFM5B07_4014        4431      4 BLOCKED  TRUE   REMOVE

       H'A480   H'C21F    23     31        TRAL     TRUE   NCONTCHK

       -------- ------------ ------ ------ -------- ------ -------------
 
       LAST REPORT          NO = 00098
 
    INITSX1           2008-02-07  14:57:50  TH      

    PSW010    0402/000C/1014  

    SEQ=8308.2008-02-07 00462  00000000   M147AA03   M1SNSK04    

    SWA-MONITORING                                                  
 
       START-MPTMON                                                      ABORTED

       -------------------------------------------------------------------------

       PHYSDEV  =  00402/000C/03F6
 
       LAST REPORT          NO = 00462
 
    INITSX1           2008-02-07  14:57:38  TH      
 
                            00048  00000000   M147AA03   M1SNSK04    

    ANOMALY REPORT
 
       ERROR TYPE    1531  CS_MW_COMM_FLT                          SYSTEM REPORT

       -------------------------------------------------------------------------

       57:38:08        NA = 8507

       ERCLAS SEQ RLVL FMM   PROC  CS : IP  USERDATA

       NOTIFY 18  NONE 5005  1C30 15A8:9379 D0 A1 12 24 FF FF FF FF 00 00
 
       UNSOLICITED REPORT   NO = 00048
 
    INITSX1           2008-02-07  14:59:59  TH      

    PSW001    0130/000C/0005  

    SEQ=7734+2007-12-31 00104  00000000   M147AA03   M1SNSK04    

    SWA-CE LOAD                                                     
 
       ACTIVATE-CEOVLD-OBSERV                                         SUCCESSFUL

                                                           RESULT    PART 0001 -

       -------------------------------------------------------------------------

       REQUESTED START TIME: = 14:45

       REQUESTED STOP TIME : = 15:00

       PERIOD: = 00:15
 
       NO PROCESSORS IN OVERLOAD  
 
       REPORT FOLLOWS       NO = 00104
 
    INITSX1           2008-02-07  15:00:00  TH      
 
                            06039  00000000   M147AA03   M1SNSK04    

    SWA-#7 MTP                                                      
 
                                                                   SYSTEM REPORT

       -------------------------------------------------------------------------

         N7 MTP

         N7 MSU DISCARD REPORT / N7 MEASUREMENTS FIRST AND INTERVAL REPORTING

         INFO: NO INFO                    REPORT PERIOD: 14:55 - 15:00

         OWN IDENTIFICATION: SIR2710T           NW: LOGNET_NAT0_ITU 

         ----------------#----------------#--------#---#-----#-----#-----

            ADJACENT             NW          LINK   SLC Q.752 EVENT  NBR

            DESTINATION                      SET                     MSU

         ----------------#----------------#--------#---#-----#-----#----- 

          35 102          S_MOB            S_KOST33   0  5.5    12     40

          35 102          S_MOB            S_KOST33   1  5.5    12     55

          26 102          S_MOB            S_BRKO33   1  5.5    12      4

          35 103          S_MOB            S_MVST33   0  5.5    12     38

          35 103          S_MOB            S_MVST33   1  5.5    12     53

          35 102          C_MOB            C_KOST33   3  5.5    12     32

          35 103          C_MOB            C_MVST33   2  5.5    12     32

          35 103          C_MOB            C_MVST33   0  5.5    12     16

          35 102          C_MOB            C_KOST33   1  5.5    12     17

          35 103          C_MOB            C_MVST33   1  5.5    12     17

          35 102          C_MOB            C_KOST33   0  5.5    12     12
 
        EVENT + MEANING

        ------+---------------------------------------------------- 

          12    NO TUP OR ISUP DESTINATION LCE FOUND FOR THIS CIC   
 
       UNSOLICITED REPORT   NO = 06039
 
    INITSX1           2008-02-07  15:00:00  TH      
 
                            05254  00000000   M147AA03   M1SNSK04    

    SWA-CHARGING OUTPUT                                             
 
                                                                         WARNING

                                                                  FINAL   RESULT

       -------------------------------------------------------------------------

       FILES-DETBIL-THRESHOLD                                   
 
         CALLTYP                          :     DORABS  

         TOTAL NUMBER OF FILES            :     1    

         NUMBER OF BUSY FILES             :     0    

       ---------------------------------------------------------------------- 

       DIVISION OF REVENUE FILE MUST BE EMPTIED                 
 
       UNSOLICITED REPORT   NO = 05254
 
    INITSX1           2008-02-07  15:00:00  TH      
 
                            05254  00000000   M147AA03   M1SNSK04    

    SWA-CHARGING OUTPUT                                             
 
                                                                         WARNING

                                                                  FINAL   RESULT

       -------------------------------------------------------------------------

       FILES-DETBIL-THRESHOLD                                   
 
         CALLTYP                          :     OMBBB   

         TOTAL NUMBER OF FILES            :     1    

         NUMBER OF BUSY FILES             :     0    

       ---------------------------------------------------------------------- 

       BULK BILLING FILE MUST BE EMPTIED                        
 
       UNSOLICITED REPORT   NO = 05254
 
    INITSX1           2008-02-07  15:00:11  TH      
 
                            06038  00000000   M147AA03   M1SNSK04    

    SWA-#7 MTP                                                      
 
                                                                   SYSTEM REPORT

       -------------------------------------------------------------------------

         N7 MTP

         N7 MSU DISCARD REPORT / N7 MEASUREMENTS FIRST AND INTERVAL REPORTING

         INFO: NO INFO           FIRST REPORT OF PERIOD: 15:00 - 15:05  

                                             TIMESTAMP: 15:00:01

         OWN IDENTIFICATION: SIR2710T           NW: LOGNET_NAT0_ITU 

         ----------------#----------------#--------#---#-----#---#----------------------------------------------------

            ADJACENT             NW          LINK   SLC Q.752 EVT                    MSU CONTENTS

            DESTINATION                      SET        TAB         OPC      DPC    SSF SI      HEX DUMP AFTER OPC

         ----------------#----------------#--------#---#-----#---#--------=--------=---=---=-------------------------- 

          35 103          S_MOB            S_MVST33   0  5.5   12 H'001C8B H'000A78   8   5 1 58 06 17 01 01 07   

          35 103          S_MOB            S_MVST33   1  5.5   12 H'001C8B H'000A78   8   5 8 E1 05 12            

          26 102          S_MOB            S_BRKO33   1  5.5   12 H'000A1B H'000A78   8   5 1 61 00 17 01 01 1E   

          35 102          S_MOB            S_KOST33   0  5.5   12 H'001C8B H'000A78   8   5 6 22 06 12            

          35 102          S_MOB            S_KOST33   1  5.5   12 H'001C8B H'000A78   8   5 B 41 06 12            
 
        EVENT + MEANING

        ------+---------------------------------------------------- 

          12    NO TUP OR ISUP DESTINATION LCE FOUND FOR THIS CIC   
 
       UNSOLICITED REPORT   NO = 06038

Feb 25 '08 #2

eWish

971

Recognized Expert Contributor

Please show us what you have tried. Also, please read the "Guidelines To Ensuring Better Answers and Assistance To Your Thread(s)"

--Kevin

Feb 25 '08 #3

DjLethal

New Member

cat <log file name> | grep 00104 > xxx.txt

I could find lines which has the report numbers but also i need the lines between the report numbers.This is my question for now.

Feb 25 '08 #4

KevinADC

4,059

Recognized Expert Specialist

cat <log file name> | grep 00104 > xxx.txt

I could find lines which has the report numbers but also i need the lines between the report numbers.This is my question for now.

If you want to know how to do it with something besides perl I recommend you ask on www.unix.com in the shell scripting forum. There are many awk, nawk, sed, sh, ksh, etc etc etc coders there that can help you.

http://www.unix.com/shell-programming-scripting/

If you want to know how to do it with perl you will need to start writing some perl and we will try and help, what we don't do here on this forum is write your code for you. But the unix forum above will.

Feb 25 '08 #5

Similar topics

2550

perl bug File::Basename and Perl's nature

by: Xah Lee | last post by:

Just bumped into another irresponsibility in perl. the crime in question this time is the module File::Basename. Reproduction: 1. create a directory containing a file of this name:...

Python

17513

Parsing a text file into an array

by: Scott | last post by:

I am new to perl, and have not found any good examples of parsing to help me out. I have a text file that I am reading into an array that has to be parsed out and put into another file. I have not...

Perl

4418

Reading - Parsing Records From An LDAP LDIF File In .Net?

by: Jean-Marie Vaneskahian | last post by:

Reading - Parsing Records From An LDAP LDIF File In .Net? I am in need of a .Net class that will allow for the parsing of a LDAP LDIF file. An LDIF file is the standard format for representing...

.NET Framework

6195

Python new user question - file writeline error

by: James | last post by:

Hello, I'm a newbie to Python & wondering someone can help me with this... I have this code: -------------------------- #! /usr/bin/python import sys

Python

2044

Javascript to capture HTTP data for parsing

by: Epictitus | last post by:

I am trying to write a script which will allow me to read the contents of an HTTP web page into memory, parse the data, and output a calculated value. The HTTP page is on a web enable appliance -...

Javascript

2324

How to count names and dates by parsing an HTML file using perl?

by: moddster | last post by:

Hi Guys. I am a newbie to perl and need some help with a problem. PROBLEM: I have to parse an HTML file and get rid of all the HTML tags and count the number of sumbissions a person has through...

Perl

2390

New Lines in an Output File

by: beginnerperl | last post by:

Hello All, I am writing a perl program that pars through a text file and find a particular word and reverse the word. I can do that fine, but when creating the output file, the output files gives me...

Perl

3082

Parsing XML File using Perl

by: sainiamit25 | last post by:

Hi, I am trying to set up environment for XML parsing using perl. I downloaded XML::Simple and installed it too. When i try to run my program, it says, you need to install parser. When i try to...

Perl

2008

Stop hotlinking to a specific file & keeping a counter

by: Adhal | last post by:

Hi, How can I stop hotlinking to a specific file, and I want it to redirect it to a PHP link so I can monitor the number of downloads. Here is my site with the download page:...

PHP

7371

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

7432

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

7093

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

5077

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

4743

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp

3218

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

1583

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...

C# / C Sharp

791

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

452

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...

General