On Tuesday 02 September 2008, McDonald, Dan wrote:
> # 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;
> }
> if ($datum =~ /nowrap="nowrap"/) {
> my ($value) = ($datum =~ />(.+?)$/);
> $content{$header[$index]} = $value;It doesn't seem to like this line above. I get: ====================================== $ perl test.1800HG-v00b.pl > test.html Use of uninitialized value in hash element at test.1800HG-v00b.pl line 41. Use of uninitialized value in hash element at test.1800HG-v00b.pl line 41. ====================================== Should I email you (off list) the complete html page that it spits out? Maybe easier if you see it in context. Thanks again for your help. -- 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
