Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: grab 'n' lines from a file above and below a /match/

by been42 (Curate)
on Sep 17, 2004 at 03:50 UTC ( #391654=note: print w/replies, xml ) Need Help??

in reply to grab 'n' lines from a file above and below a /match/

I know that I'm showing up a little bit late to the party, but wouldn't Tie::File work for this?

use strict; use Tie::File; # some variables get set up here since we're using strict (wink) tie @lines, 'Tie::File', 'GWSvc.log', memory=>$some_small_number; for ($i=0; $i<$#lines; $i++) { if (/c9391b56-b174-441b-921c-7d63/) { for ($j=$i-5; $j <= $i+5; $j++) { print $lines[$j]; } } }

I'm sure there are a million ways to make it look cleaner, but I'm also very sleepy right now. This seems like it would solve the problem, though. I'm really a big fan of Tie::File after having been 'corrected' on my non-usage of it not too long ago. Now I find uses for it everywhere.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://391654]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2020-09-19 19:21 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (115 votes). Check out past polls.