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$/ }
}
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
