On Tuesday 02 September 2008, Mick wrote: > On Tuesday 02 September 2008, McDonald, Dan wrote: > > # OK, let's convert everything into an array, split on </td> boundaries
This is the regex part which now works as intended:
=====================================
if ($req->is_success) {
# print $req->content;
# OK, let's convert everything into an array, split on </td> boundaries
my @data = split(qw(</td>),$req->content);
# Then see if we can parse this into something somewhat usable
my ($index,@header,%content);
$index=0;
foreach my $datum (@data) {
if ( $datum =~ /columnheaderborder/) {
my ($head) = ($datum =~ />(.+?)$/);
push @header,$head;
next;
}
if ($datum =~ /nowrap="nowrap"/) {
my ($value) = ($datum =~ />(.+?)$/);
$content{$header[$index]} = $value;
$index++;
}
}
# assuming there weren't any extraneous headers,
# we should now have a hash indexed by the headers:
print "$content{'Max1'}\n$content{'Max2'}\n\n\n";
print "$content{'Mgn1'}\n$content{'Mgn2'}\n\n\n";
}
else {
die $response->status_line, "\n";
}
=====================================
and captures initial and current sync speeds and initial and current SNRM:
7520 7360 6.0 4.0
At the same time I would like to capture Time and CRCs and FECs, not to graph,
but tabulate on the MRTG page.
Time Line Rate Max1 Max2 Max3 Mgn1 Mgn2
Attn Pwr CRCs FECs
+003 days 15:45:48 1 7520 7520 7360 7264 6.0 4.0
38.0 20.2 17532 6041807
How should I do this?
--
Regards,
Mick
signature.asc
Description: This is a digitally signed message part.
_______________________________________________ mrtg mailing list [email protected] https://lists.oetiker.ch/cgi-bin/listinfo/mrtg
