Re: taking lines from a file

[John W. Krahn]

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]