#!usr/bin/perl #simpleparse.pl use strict; use warnings; use HTML::SimpleParse; use Data::Dumper; my $html = <<'END';
END my $p=HTML::SimpleParse->new($html); print Dumper($p); ####
#!usr/bin/perl
#simpleparse.pl
use strict;
use warnings;
use HTML::TreeBuilder;
use Data::Dumper;
my $html = <<'END';
END
my $p=HTML::TreeBuilder->new_from_content($html);
my @urls=$p->find('_tag'=>'a');
foreach (@urls){
if ($_->as_text=~/^Completed/){
print $_->attr('href')."\n";
}
}
#print Dumper($p);