Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Getting the next line after a match

by danger (Priest)
on Dec 20, 2001 at 02:28 UTC ( [id://133294]=note: print w/replies, xml ) Need Help??


in reply to Getting the next line after a match

Ignore lines until you see Buffers, then read in another line:

while(<DATA>){ next unless /^Buffers/; my $line = <DATA>; print $line; } __DATA__ 100000 # Event Snoopy Snoopy Replay Replay Current Current Buffers ID Position ID Position ID Position 1024 1667721 2975e7c 1667717 6d44e10 1667721 2982000 11111 Buffers Another good buffer line

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2024-04-19 01:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found