Re: Who has used HTML::Parser??

The "main parser function" is either parse() or parse_file() depending on whether you have the html in memory or on disk. The parser has three functions: start, end, and text, which will be called when a new tag is encountered, ended, and text is found. You need to supply these functions yourself. Version 2 of HTML::Parser requires you to subclass HTML::Parser:

#!/usr/bin/perl

use strict;

{
package SampleParser;
use base qw(HTML::Parser);

sub start
 {
   my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
   my $at;

   print "Tag: $tagname\n";
   foreach $at (@{$attrseq})
    {
      print "Attribute: $at = $attr->{$at}\n";
    }
 }

sub text
 {
   my ($self, $origtext) = @_;

   print "Text: $origtext\n";
 }
}

my $html = '<html><head><title>this is the title</title><body bgcolor=
+"white">Hello</body></html>';
my $sp = new SampleParser;
$sp->parse($html)
[download]

But version 3 looks like it allows you to specify which functions to use for start end and text in the constructor (see the documentation for an example of this).

Comment on Re: Who has used HTML::Parser?? Select or Download Code