Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: One liner

by Roy Johnson (Monsignor)
on Jun 02, 2009 at 15:21 UTC ( #767633=note: print w/ replies, xml ) Need Help??


in reply to One liner

You need to tell it to read the file all at once instead of line-by-line. Then you need to adjust your regex to do multiline matching (and not to be so greedy as to eat the numbers):

perl -0777 -ne 'if (m/^Total SE ON.*?(\d+)/ms) {print "$1\n"}' *
Update: as ikegami notes, paragraph mode would also be suitable. The shorthand for that is -00 (those are zeroes). See perlrun

Caution: Contents may have been coded under pressure.


Comment on Re: One liner
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2015-07-30 05:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (270 votes), past polls