[ale] Perl Question

[Ken Nagorski]

But checking the next line wasn't the problem, if the pattern matched I
wanted to line above it and below it. See why redo didn't help? Even
though I solved my current problem I would still love to know how to do
this.

Ken

On 16 Oct 2000, Fletch wrote:

> >>>>> "Danny" == Danny Cox <danny at compgen.com> writes:
> 
>     Danny> Ken, On Mon, 16 Oct 2000, Danny Cox wrote:
>     >> > I have a little perl problem, lets say I have a grep and it
>     >> returns true.  > I want to not only print that line but I wanna
>     >> print the line > below. Anyone know how I noght do this?
>     >> 
>     >> See the '-A' option to grep (at least, GNU grep).
>     >> 
>     >> grep -A1 'pattern' file
>     >> 
>     >> will do what you wish.
> 
>     Danny> 	Whups!  I missed the 'perl' part.  Well, you could use
>     Danny> the system() function in the same way.
> 
>     
>         Suguestions to use system to call grep from perl are almost as 
> bad as using cat to pipe files to grep on the command line. :)
> 
> 
> while( <> ) {
>   if( /somepattern/ ) {
>     my $nextline = <>;
>     print $_, $nextline;
>   }
> }
> 
> 
>         If you also want to check the next line for the pattern, then
> stick a `redo' after the print.
> 
> 

--
To unsubscribe: mail majordomo at ale.org with "unsubscribe ale" in message body.