Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Getting the next line after a match

by rje (Deacon)
on Dec 20, 2001 at 02:55 UTC ( [id://133309]=note: print w/replies, xml ) Need Help??


in reply to Getting the next line after a match

Another way to do it is to adjust perl's input behavior slightly, in order to get it to read everything up to "Buffers" in one shot. Then, reset perl's input behavior to read line-by-line again: all that's left is the header's newline, and voila! You've got your data:

my $header = "Buffers"; # # or do it this way: # my $header = "Buffers ID Position ID Position ID +Position"; # $/ = $header; my $junk = <DATA>; $/ = "\n"; my $header_end_of_line = <DATA>; my $data = <DATA>; print $data; __DATA__ DDR -- Running -- # Event Snoopy Snoopy Replay Replay Current Current Buffers ID Position ID Position ID Position 1024 1667721 2975e7c 1667717 6d44e10 1667721 2982000 1023 1667720 2975e7b 1667716 6d44e09 1667720 2981999

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-03-28 19:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found