Re: regex pattern match

[wind]

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

[MarcAllan]

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?

[Marshall]

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

[MarcAllan]

Marshall

Thanks for this, worked a treat