#!/usr/bin/perl -w package Example; use LWP::Simple; use HTML::Parser; @Example::ISA=qw(HTML::Parser); $content = get("http://www.yahoo.com"); my $parser = Example->new(); $parser->parse($content); print $parser->{TEXT}; sub text { my ($self,$text)=@_; $self->{TEXT}.=$text; }
In reply to HTML::Parser question
by mkurtis
in thread HTML::Parser question
by mkurtis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |