Perl: HTML::Parser

HTML::Parser

BEGIN { # Create a new package - this could be in MyParser.pm

package MyParser;

@ISA=qw(HTML::Parser); # This is how to extend a class...

sub start {

my $self = shift;

my $tag = shift;

my $attr = shift;

my $attrseq = shift;

my $origtext = shift;

print "tag = $tag\n";

foreach $key (keys(%$attr)) {

print " $key=$attr->{$key}\n";

}

} #end of MyParser package

# Create a new MyParser object and parse an HTML file...

$parser = new MyParser;

$parser->parse_file("test.html");