Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $wanted = q{<html><head></head><body><table><tr><td valign="top" wi
+dth="10"></td></tr></table></body></html>};
my $got = $html_tree->as_HTML();
is($got, $wanted);
  2. or download this
    my (@files, @rippers);
@files = Filecontrol::get_files($dir);
...
foreach my $file (@files) {
    `tidy -asxml -m  $file`;
}