Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use HTML::Tree;
use LWP::Simple;
...

my $tree = HTML::TreeBuilder->new();
$tree = parse_file("guardian.htm);
  2. or download this
     {
    my $counter = 'x0000';
...
    };
    give_id($start_node);
  }
  3. or download this
     if $element->teg('h1' or 'h2')
{
my $content = $element->as_text();
print outfile "====$content====\n";
}