| 3 | app3
| prd-1 |
####
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTML::Parser;
# Create instance
my $p = HTML::Parser->new(api_version => 3,
marked_sections => 1,
unbroken_text => 1,
start_h => [\&start, "tagname, attr"],
text_h => [\&text, 'text'],
);
# Start parsing the following HTML file
$p->parse_file("testpage.html");
my $get_next_text = 0;
sub start{
# Execute when start tag is encountered
my ($tagname,$attr) = @_;
if ($tagname eq 'td' && exists $attr->{align} && $attr->{align} eq 'right'){
$get_next_text = 1;
}
else {
$get_next_text = 0;
}
}
sub text {
my $text = shift;
print "$text\n" if $get_next_text;
}
|