Help for this page

Select Code to Download


  1. or download this
    my (undef,undef,@fields) = split(/\,/,shift @rows);
my %stats = ();
...
        $stats{$pxname}{$svname}{$f} = shift @values;
   }
}
  2. or download this
    <p>Sample HTML to use is as follows:</p>
<body>
...

    <p><h2>Cache Status</h2>
    0 items cached, 0 cache hits, 0 cache misses (0.0%)
  3. or download this
    $htmlcontent =~ s/    //g; #remove tabs
$htmlcontent =~ s/<[^>]*>/,/g; #convert html tags into commas
...
$htmlcontent =~ s/,\n//g; #nuke lines with a comma followed by a new l
+ine
$htmlcontent =~ s/^(?:.*\n){0,1}//; #remove first line
$htmlcontent =~ s/,$//g; #nuke that pesky last line
  4. or download this
    my $stats = $htmlcontent;
@rows = split(/\n/,$stats);
...
        $stats{$pxname}{$svname}{$f} = shift @values;
   }
}