Rob Dixon wrote: > > Marcelo wrote: > > Hi everybody... > > How I can take lines from a file like this ... > > > > line1=A > > line2 > > line3 > > > > line1=B > > line2 > > line3 > > > > line1=A > > line2 > > line3 > > > > I want to take the followin 2 lines to the line1 when line1=A and > > write them to another file.... > > I'm not clear exactly what your file looks like, but the following will > output the two lines immediately following a line exactly matching > 'line1=A'. > > @ARGV = 'file.txt'; > > my $print; > > while (<>) { > if ($print and $print--) { print } > else { $print = 2 if /^line1=A$/ } > }
Or use paragraph mode: ( $/, $\, @ARGV ) = ( '', "\n", 'file.txt' ); while ( <> ) { s/^line1=A\n// and print; } John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]