Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations MikeeOK on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Retrieving multi-lines records from a file based on a criterial 1

Status
Not open for further replies.
dmazzini

dmazzini

Programmer
Jan 20, 2004
480
US
Hi

I have a files with multiline records, I want to extract some records based on a criterial and generate another file.
I have created a script and it workds fine using __DATA__, but when I try it reading a file it does not work,

If I open a filehandle in order to read an external file it does not work.....I guess is a misunderstanding how to use
local $/ .

Thanks for the help


Code: 
use strict;

my @allalarms;
{
 local $/ = '';
 @allalarms=<DATA>;
}


my $rncid="FLRNC002";
my $wbtsid= 11037;

my $record_start=0;
foreach my $record (@allalarms){
        $record_start++;
	
	if ($record_start>=0 && $record_start <=7){
	     if ($record =~ /ZAAO:WBTS/){
	         $record="\n\nMAIN LEVEL COMMAND <___>\n\n";
                 $record.="< ZAAO:WBTS,$wbtsid;\n\n";
	     }	       
	         
	     print "$record\n";
	}	
	
	if ($record_start>=0  &&  $record=~/WBTS-$wbtsid/ && $record=~/WBTS-$wbtsid/){    
	    print "$record\n";	
	}
}

 




__DATA__
RNC       FLRNC002                  2008-10-16  12:26:53

       MAIN LEVEL             

       ? ..... DISPLAY MENU             
       A ..... ALARM SYSTEM ADMINISTRATION             
       C ..... ROUTING STATE ADMINISTRATION             
       D ..... SYSTEM SUPPORT AND COMMUNICATION             
       I ..... I/O SYSTEM ADMINISTRATION             
       L ..... BROADBAND ADMINISTRATION             
       N ..... SS7 NETWORK ADMINISTRATION             
       O ..... SUPPLEMENTARY SS7 NETWORK ADMINISTRATION             
       Q ..... O&M NETWORK ADMINISTRATION             
       R ..... ROUTING ADMINISTRATION             
       T ..... TRAFFIC ADMINISTRATION             
       U ..... UNIT ADMINISTRATION             
       W ..... SYSTEM CONFIGURATION ADMINISTRATION             
       Y ..... SYSTEM SUPERVISION             
       Z; .... END DIALOGUE/DESTINATION SELECTION (:)             



MAIN LEVEL COMMAND <___>
< ZAAO:WBTS;


LOADING PROGRAM VERSION 4.12-0

RNC       FLRNC002                  2008-10-16  12:26:58

ACTIVE ALARMS


    (61072) FLRNC002                         EQUIPM       2008-10-09 10:35:40.00
*** ALARM   WBTS-11006 WCEL-1100611                                             
            U6WP1006E            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0B 64 0010FRIB 01 00 
Failure in optical RP3 interface                                                

    (61057) FLRNC002                         EQUIPM       2008-10-09 10:25:41.00
*** ALARM   WBTS-11006 WCEL-1100611                                             
            U6WP1006E            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                      

    (61073) FLRNC002                         EQUIPM       2008-10-09 10:35:40.00
*** ALARM   WBTS-11006 WCEL-1100621                                             
            U6WP1006E            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0B 64 0010FRIB 01 00 
Failure in optical RP3 interface                  

    (56166) FLRNC002                         EQUIPM       2008-10-04 14:06:32.00
*** ALARM   WBTS-11014 WCEL-1101431                                             
            U6WP1014A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0D 64 0010FRIB 03 00 
Failure in optical RP3 interface    

    (61058) FLRNC002                         EQUIPM       2008-10-09 10:25:41.00
*** ALARM   WBTS-11006 WCEL-1100621                                             
            U6WP1006E            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                                   

    (65198) FLRNC002                         EQUIPM       2008-10-14 09:58:34.00
*** ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0B 64 0010FRIB 01 00 
Failure in optical RP3 interface                                                

    (65182) FLRNC002                         EQUIPM       2008-10-14 09:48:34.00
*** ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                      

    (65241) FLRNC002                         EQUIPM       2008-10-14 10:41:14.00
*** ALARM   WBTS-11037 WCEL-1103721                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0C 64 0010FRIB 02 00 
Failure in optical RP3 interface                                                

    (65183) FLRNC002                         EQUIPM       2008-10-14 09:48:34.00
*** ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                      

    (65197) FLRNC002                         EQUIPM       2008-10-14 09:58:34.00
*** ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0D 64 0010FRIB 03 00 
Failure in optical RP3 interface                                                

    (18445) FLRNC002                         QUAL         2008-09-04 01:08:59.52
**  ALARM   WBTS-2007                                                           
    3117    FAILURE IN SAAL UNI SIGNALLING LINK ACTIVATION                  
    A2SPRB  ICSU-4                                         
    0002 0007 0026

Output (Perfect as I wanted)Just records belong to$rncid="FLRNC002";
$wbtsid= 11037;

Code: 
perl splitalarm.pl
RNC       FLRNC002                  2008-10-16  12:26:53


       MAIN LEVEL             


       ? ..... DISPLAY MENU             
       A ..... ALARM SYSTEM ADMINISTRATION             
       C ..... ROUTING STATE ADMINISTRATION             
       D ..... SYSTEM SUPPORT AND COMMUNICATION             
       I ..... I/O SYSTEM ADMINISTRATION             
       L ..... BROADBAND ADMINISTRATION             
       N ..... SS7 NETWORK ADMINISTRATION             
       O ..... SUPPLEMENTARY SS7 NETWORK ADMINISTRATION             
       Q ..... O&M NETWORK ADMINISTRATION             
       R ..... ROUTING ADMINISTRATION             
       T ..... TRAFFIC ADMINISTRATION             
       U ..... UNIT ADMINISTRATION             
       W ..... SYSTEM CONFIGURATION ADMINISTRATION             
       Y ..... SYSTEM SUPERVISION             
       Z; .... END DIALOGUE/DESTINATION SELECTION (:)             




MAIN LEVEL COMMAND <___>

< ZAAO:WBTS,11037;


LOADING PROGRAM VERSION 4.12-0


RNC       FLRNC002                  2008-10-16  12:26:58


ACTIVE ALARMS


    (65198) FLRNC002                         EQUIPM       2008-10-14 09:58:34.00
*** ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0B 64 0010FRIB 01 00 
Failure in optical RP3 interface                                                


    (65182) FLRNC002                         EQUIPM       2008-10-14 09:48:34.00
*** ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                      


    (65241) FLRNC002                         EQUIPM       2008-10-14 10:41:14.00
*** ALARM   WBTS-11037 WCEL-1103721                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0C 64 0010FRIB 02 00 
Failure in optical RP3 interface                                                


    (65183) FLRNC002                         EQUIPM       2008-10-14 09:48:34.00
*** ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 64 64 1868 00 00 
Configuration error: not enough hw for lcr                                      


    (65197) FLRNC002                         EQUIPM       2008-10-14 09:58:34.00
*** ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7653    CELL FAULTY                                                     
    OBH_QX  OMU-1                                          
    64 0D 64 0010FRIB 03 00 
Failure in optical RP3 interface                                                


    (65254) FLRNC002                         QUAL         2008-10-14 10:49:27.13
**  ALARM   WBTS-11037                                                          
    3117    FAILURE IN SAAL UNI SIGNALLING LINK ACTIVATION                  
    A2SPRB  ICSU-16                                        
    0003 001D 0026 


    (65184) FLRNC002                         QUAL         2008-10-14 09:48:45.58
**  ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7772    HSDPA CONFIGURATION FAILED                                      
    BRM_QD  ICSU-16                                        
    02 ICSU 16d 00 01 0d 01 
WBTS rejects the configuration                                                  


    (65026) FLRNC002                         QUAL         2008-10-14 02:08:12.70
**  ALARM   WBTS-11037 WCEL-1103711                                             
            U6WP1037A            
    7771    WCDMA CELL OUT OF USE                                           
    REK_QX  OMU-1                                          
    0020 15029d 
CCH Recovery                                                                    


    (65242) FLRNC002                         QUAL         2008-10-14 10:40:11.08
**  ALARM   WBTS-11037 WCEL-1103721                                             
            U6WP1037A            
    7771    WCDMA CELL OUT OF USE                                           
    REK_QX  OMU-1                                          
    0008 0d 
Resource status indication, cell disabled                                       


    (65027) FLRNC002                         QUAL         2008-10-14 02:08:26.49
**  ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7771    WCDMA CELL OUT OF USE                                           
    REK_QX  OMU-1                                          
    0080 13288d 
NBAP link failure                                                               


    (65185) FLRNC002                         QUAL         2008-10-14 09:48:45.63
**  ALARM   WBTS-11037 WCEL-1103731                                             
            U6WP1037A            
    7772    HSDPA CONFIGURATION FAILED                                      
    BRM_QD  ICSU-16                                        
    02 ICSU 16d 00 01 0d 01 
WBTS rejects the configuration                                                  


    (65259) FLRNC002                         COMM         2008-10-14 10:53:51.71
*   ALARM   WBTS-11037                                                          
            U6WP1037A            
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                            
    BOI_QX  OMU-1                                          
    01 154d





dmazzini
GSM/UMTS System and Telecomm Consultant

 
Sort by date Sort by votes
This is:

Code: 
my @allalarms;
{
 local $/ = '';
 @allalarms=<DATA>;
}

Should be the same as:

Code: 
my @allalarms;
{
 local $/ = '';
 open(FILE,'filename'); 
 @allalarms=<FILE>;
 close FILE;
}

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Thanks KevinADC

You're right and the issue was that I was reading different filename..OOOOOOOOOPPPPPPPPPPS



dmazzini
GSM/UMTS System and Telecomm Consultant

 
Upvote 0 Downvote
Your code could use a little tweaking to make it more efficient.

Code: 
use strict;

my @allalarms = do{ local $/ = "\n\n"; <DATA>};

my $rncid  = 'FLRNC002';
my $wbtsid = 11037;

my $record_start = 0;
foreach my $record (@allalarms){
    if ($record_start <= 7){
         if ($record =~ /ZAAO:WBTS/){
             $record =  "\n\nMAIN LEVEL COMMAND <___>\n\n";
             $record .= "< ZAAO:WBTS,$wbtsid;\n\n";
         }           
         print "$record\n";
    }    
    elsif ($record =~ /^\Q*** ALARM   WBTS-$wbtsid\E/m){    
        print "$record\n";    
    }
    $record_start++;
}

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Thanks for your post. Now I got another issue...

This data below looks almost similar but I can't split the multi-line records using "" or "\n\n";

Any ideas
Code: 
#MML220
ZZAAO:WBTS; 
 
 
LOADING PROGRAM VERSION 4.12-0 
 
RNC       ATRNC001                  2008-10-17  00:56:11 
 
ACTIVE ALARMS 
 
 
    (59247) ATRNC001                         EQUIPM       2008-09-10 07:39:00.00 
*** ALARM   WBTS-1006 WCEL-100611                                                
            U9AT1006A             
    7653    CELL FAULTY                                                      
    OBH_QX  OMU-0                                           
    64 0B 64 1837FRIA 01 00  
Antenna line failure                                                             
 
    (60463) ATRNC001                         EQUIPM       2008-09-10 07:39:04.00 
*** ALARM   WBTS-1006 WCEL-100621                                                
            U9AT1006A             
    7653    CELL FAULTY                                                      
    OBH_QX  OMU-0                                           
    64 0B 64 1837FRIA 01 00  
Antenna line failure                                                             
 
    (59248) ATRNC001                         EQUIPM       2008-09-10 07:39:01.00 
*** ALARM   WBTS-1006 WCEL-100631                                                
            U9AT1006A             
    7653    CELL FAULTY                                                      
    OBH_QX  OMU-0                                           
    64 0C 64 1837FRIA 02 00  
Antenna line failure                                                             
 
    (13451) ATRNC001                         QUAL         2008-10-08 05:44:48.35 
**  ALARM   WBTS-1006                                                            
    3117    FAILURE IN SAAL UNI SIGNALLING LINK ACTIVATION                   
    A2SPRB  ICSU-7                                          
    0005 0015 0026  
 
    (00489) ATRNC001                         QUAL         2008-09-18 11:52:56.02 
**  ALARM   WBTS-2170                                                            
    3117    FAILURE IN SAAL UNI SIGNALLING LINK ACTIVATION                   
    A2SPRB  ICSU-3                                          
    0008 001D 0026  
 
    (00490) ATRNC001                         QUAL         2008-09-18 11:52:47.07 
**  ALARM   WBTS-2170                                                            
            U9AT2170B             
    7761    RNW O&M SCENARIO FAILURE                                         
    VEX_Q2  OMU-1                                           
    07 05 13369d 0008 001D 0028  
AAL2 path unblock not accomplished                                               
 
    (60681) ATRNC001                         QUAL         2008-09-11 00:52:20.25 
**  ALARM   WBTS-19 WCEL-1911                                                    
            U9AT0019D             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (60683) ATRNC001                         QUAL         2008-09-11 00:52:20.25 
**  ALARM   WBTS-19 WCEL-1921                                                    
            U9AT0019D             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (60682) ATRNC001                         QUAL         2008-09-11 00:52:20.25 
**  ALARM   WBTS-19 WCEL-1931                                                    
            U9AT0019D             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (60685) ATRNC001                         QUAL         2008-09-11 00:52:25.02 
**  ALARM   WBTS-65 WCEL-6511                                                    
            U9AT0065A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (60687) ATRNC001                         QUAL         2008-09-11 00:52:25.02 
**  ALARM   WBTS-65 WCEL-6521                                                    
            U9AT0065A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (60686) ATRNC001                         QUAL         2008-09-11 00:52:25.02 
**  ALARM   WBTS-65 WCEL-6531                                                    
            U9AT0065A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    0080 13288d  
NBAP link failure                                                                
 
    (57761) ATRNC001                         EQUIPM       2008-09-08 09:04:24.00 
**  ALARM   WBTS-1006 WCEL-100611                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 14 1835MHA 02 00  
Mast head amplifier fault                                                        
 
    (57765) ATRNC001                         EQUIPM       2008-09-08 09:04:38.00 
**  ALARM   WBTS-1006 WCEL-100611                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 14 1835MHA 01 00  
Mast head amplifier fault                                                        
 
    (57763) ATRNC001                         EQUIPM       2008-09-08 09:04:24.00 
**  ALARM   WBTS-1006 WCEL-100621                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 15 1835MHA 04 00  
Mast head amplifier fault                                                        
 
    (57762) ATRNC001                         EQUIPM       2008-09-08 09:04:24.00 
**  ALARM   WBTS-1006 WCEL-100621                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 15 1835MHA 03 00  
Mast head amplifier fault                                                        
 
    (57766) ATRNC001                         EQUIPM       2008-09-08 09:04:44.00 
**  ALARM   WBTS-1006 WCEL-100631                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 14 1835MHA 02 00  
Mast head amplifier fault                                                        
 
    (57764) ATRNC001                         EQUIPM       2008-09-08 09:04:30.00 
**  ALARM   WBTS-1006 WCEL-100631                                                
            U9AT1006A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 14 1835MHA 01 00  
Mast head amplifier fault                                                        
 
    (15533) ATRNC001                         EQUIPM       2008-10-12 01:49:52.00 
**  ALARM   WBTS-1028 WCEL-102831                                                
            U9AT1028A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 14 1834MHA 02 00  
Mast head amplifier fault                                                        
 
    (60692) ATRNC001                         QUAL         2008-09-11 00:52:27.33 
**  ALARM   WBTS-1108 WCEL-110811                                                
            U9AT1108A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    FFFF 13288d  
NBAP link failure                                                                
 
    (60694) ATRNC001                         QUAL         2008-09-11 00:52:27.33 
**  ALARM   WBTS-1108 WCEL-110821                                                
            U9AT1108A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    FFFF 13288d  
NBAP link failure                                                                
 
    (60693) ATRNC001                         QUAL         2008-09-11 00:52:27.33 
**  ALARM   WBTS-1108 WCEL-110831                                                
            U9AT1108A             
    7771    WCDMA CELL OUT OF USE                                            
    REK_QX  OMU-0                                           
    FFFF 13288d  
NBAP link failure                                                                
 
    (14924) ATRNC001                         EQUIPM       2008-10-10 18:18:33.00 
**  ALARM   WBTS-1131 WCEL-113111                                                
            U9AT1131A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 14 1834MHA 01 00  
Mast head amplifier fault                                                        
 
    (14919) ATRNC001                         EQUIPM       2008-10-10 18:17:27.58 
**  ALARM   WBTS-1131 WCEL-113121                                                
            U9AT1131A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0B 64 1836FRIA 01 00  
Antenna line failure                                                             
 
    (14929) ATRNC001                         EQUIPM       2008-10-10 18:19:00.00 
**  ALARM   WBTS-1131 WCEL-113131                                                
            U9AT1131A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 14 1834MHATA 01 00  
Mast head amplifier fault                                                        
 
    (14928) ATRNC001                         EQUIPM       2008-10-10 18:18:40.00 
**  ALARM   WBTS-1131 WCEL-113131                                                
            U9AT1131A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 14 1834MHATA 02 00  
Mast head amplifier fault                                                        
 
    (60466) ATRNC001                         EQUIPM       2008-09-11 00:53:00.48 
**  ALARM   WBTS-2057 WCEL-205731                                                
            U9AT2057A             
    7654    CELL OPERATION DEGRADED                                          
    OBH_QX  OMU-0                                           
    64 0C 64 1836FRIA 02 00  
Antenna line failure                                                             
 
    (59896) ATRNC001                         COMM         2008-09-11 00:41:52.61 
*   ALARM   WBTS-19                                                              
            U9AT0019D             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 14608d  
 
    (60108) ATRNC001                         COMM         2008-09-11 00:41:53.04 
*   ALARM   WBTS-65                                                              
            U9AT0065A             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 14608d  
 
    (60113) ATRNC001                         COMM         2008-09-11 00:41:53.12 
*   ALARM   WBTS-70                                                              
            U9AT0070A             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 14608d  
 
    (13452) ATRNC001                         COMM         2008-10-08 05:48:25.06 
*   ALARM   WBTS-1006                                                            
            U9AT1006A             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 154d  
 
    (60188) ATRNC001                         COMM         2008-09-11 00:41:54.11 
*   ALARM   WBTS-1108                                                            
            U9AT1108A             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 14608d  
 
    (01161) ATRNC001                         COMM         2008-09-19 14:33:30.75 
*   ALARM   WBTS-2170                                                            
            U9AT2170B             
    7750    FAILURE IN WCDMA WBTS O&M CONNECTION                             
    BOI_QX  OMU-0                                           
    01 14608d  
 
NUMBER OF ACTIVE ALARMS DISPLAYED: 
 
  *** ALARM  = 3 
   ** ALARM  = 24 
    * ALARM  = 6 
 
TOTAL:       = 33 
 
COMMAND EXECUTED 

 
ACTIVE ALARMS HANDLING COMMAND <AA_> 
<


dmazzini
GSM/UMTS System and Telecomm Consultant

 
Upvote 0 Downvote
Each line appears to have a space at the beginning so you can try this:

Code: 
my @data = do {local $/ = "\n \n"; <DATA>};
print "----- START RECORD -----\n$_----- END RECORD -----\n" for @data;
__DATA__
your data here

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
I don't know what to say, You KevinADC You are a genius!

I will sleep happy (GMT-6 Dallas USA) LOL :)



dmazzini
GSM/UMTS System and Telecomm Consultant

 
Upvote 0 Downvote
hehehe..... You're welcome.

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
1K
rob54321
rob54321
newbie1238585
  • Locked
  • Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
701
mikrom
mikrom
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
569
Dino_1000
Dino_1000
Ahven
  • Locked
  • Question
Compiling Perl 5.36.0 fails on OS X 10.5.8 PowerPC
Replies
1
Views
415
mikrom
mikrom
Limbomusic
  • Locked
  • Question
Perl files getting accessed directly
Replies
0
Views
564
Limbomusic
Limbomusic

Part and Inventory Search

Sponsor

Back
Top