HTML::Parser

use 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 text {

my $self = shift; # The object is always the first arg

my $text = shift; # This is the text segment

print "$text\n";

}

} #end of MyParser package

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

$parser = new MyParser;

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

This example prints out all the plain text in an HTML document (unformatted)

Previous slide

Next slide

Back to first slide

View graphic version