In that case, you could always change
### my $nextLine = <FH>; to ### my $nextLine = <FH> unless $nextline =~ /^$prefix/; -----Original Message----- From: Bob Showalter [mailto:[EMAIL PROTECTED]] Sent: Friday, April 19, 2002 2:17 PM To: '[EMAIL PROTECTED]'; '[EMAIL PROTECTED]' Subject: RE: help parsing file > -----Original Message----- > From: drieux [mailto:[EMAIL PROTECTED]] > Sent: Friday, April 19, 2002 4:55 PM > To: [EMAIL PROTECTED] > Subject: Re: help parsing file > > > > On Friday, April 19, 2002, at 12:29 , Pedro A Reche Gallardo wrote: > > > HI, I have a file that it could be devided in set of lines, each set > > startingi with a line that has the ">" symbol. Of everyset > of lines, I > > am trying to print only the line that contain the ">" symbol and the > > next line. Please see below. Any help welcome. > > Regards, > > in simpler terms something like: > > ... drieux, your solution has contains the code (pasted from your web page): ### while(<FH>) { ### if( /^$prefix/ ) { ### print "$_"; ### my $nextLine = <FH>; ### print "$nextLine"; ### } ### } # end while Consider the following input data: >Line 1 >Line 2 This is line 3. Should it print? Your code will not print line 3. Since it is the line following a line containing a ">", it seems that it should be printed, no? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
