Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: regex pattern match

by wind (Priest)
on Jun 23, 2011 at 21:33 UTC ( #911175=note: print w/ replies, xml ) Need Help??


in reply to regex pattern match

Why not just split the data and put all of it into a hash?

use strict; use warnings; my $data = do {local $/; <DATA>}; my %hash = map {split /:\s*/, $_, 2} map {split "\n"} $data; print "Task Name = ", $hash{TaskName}, "\n"; print "Status = ", $hash{Status}, "\n"; print "Last Result = ", $hash{"Last Result"}, "\n"; __DATA__ HostName: LAP3220889 TaskName: infiniteloop Next Run Time: Never Status: Last Run Time: 21:45:18, 22/06/2011 Last Result: 0


Comment on Re: regex pattern match
Download Code
Re^2: regex pattern match
by MarcAllan (Novice) on Jun 24, 2011 at 07:39 UTC

    Thanks for your reply, its one possibility to reference the data from an hash but the pattern match problem got me stumped, and if possible I would like to know how its done?

      pattern match problem got me stumped, and if possible I would like to know how its done? You are very close. You need to stop capturing Status at the end of the line with \n and then need to allow any number of other characters before the "Last Result:" tag. See below.

      Few other points, there is no need to mess around with $1,$2. Use list context on the left hand side and assign directly to the variables that you want. The regex matched if the rightmost of the variables is defined; in this case $result.

      use strict; use warnings; my $out = do {local $/; <DATA>}; my $task = 'infiniteloop'; my ($status, $result) = $out =~ m/TaskName:\s+$task.*?Status:\s+(.+?)\ +n.*?Last Result:\s+(\d)/s; print "status = $status\n"; # status = Running print "result = $result\n"; # result = 0 __DATA__ HostName: LAP3220889 TaskName: infiniteloop Next Run Time: 11:06:00, 23/06/2011 Status: Running Last Run Time: 10:10:04, 23/06/2011 Last Result: 0

        Marshall

        Thanks for this, worked a treat

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2014-08-31 02:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls