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]

Reply via email to