HTML::Filter

use HTML::Filter;

BEGIN {

package MyParser;

@ISA=qw(HTML::Filter);

sub text {

my $self = shift;

my $text = shift;

$self->output(uc($text));

}

}

$parser = new MyParser;

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

This example converts all plain text to uppercase

Previous slide

Back to first slide

View graphic version