note
OeufMayo
<p>Here's a version using the HTML::Parser v.2 interface:</p>
<code>#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
use HTML::Parser;
my $parser = Example->new();
my $html = get("http://www.perlmonks.org")
or die "Cannot fetch the HTML\n";
$parser->parse($html);
package Example;
use base qw(HTML::Parser);
sub text {
my ($self,$text) = @_;
print $text;
}
</code>
<p>And here's the same script, but using the HTML::Parser
version 3 interface. This one is easier to use because you
generally don't have to make a new package to parse the
html (though you can, if you really want to!).</p>
<code>#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
use HTML::Parser;
my $html = get("http://www.perlmonks.org");
my $parser = HTML::Parser->new(
text_h => [ sub { print shift }, 'dtext' ]
);
$parser->parse($html);
</code>
<kbd>-- <br>
my $<a href="/index.pl?node=OeufMayo&lastnode_id=1072">OeufMayo</a> = new PerlMonger::Paris({http => '<a href="http://paris.mongueurs.net">paris.mongueurs.net</a>'});</kbd>
107175
107175