Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Getting next line after matched one

by rnahi (Curate)
on Dec 30, 2004 at 20:58 UTC ( #418400=note: print w/replies, xml ) Need Help??


in reply to Getting next line after matched one

The one-liner approach:

$ cat input.txt one two three four five six seven $ perl -ne 'print $_ = <> and last if /five/' input.txt six