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
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|