Re: 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
[download]

Comment on Re: regex pattern match Download Code

Replies are listed 'Best First'.
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?	[reply]
Re^3: regex pattern match by Marshall (Canon) on Jun 24, 2011 at 18:55 UTC
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` [download]	[reply] [d/l]
Re^4: regex pattern match by MarcAllan (Novice) on Jun 25, 2011 at 10:56 UTC
Marshall Thanks for this, worked a treat	[reply]
Re^5: regex pattern match by MarcAllan (Novice) on Jun 27, 2011 at 08:50 UTC


Perl Monk, Perl Meditation
	PerlMonks