use HTML::LinkExtor;
$filename = $ARGV;
$parser = HTML::LinkExtor->new(undef, $base_url);
$parser->parse_file($filename);
@links = $parser->links;
foreach $linkarray (@links) {
my ($elt_type, %attrs) = @$linkarray;
print $attrs{'href'}, "\n";
}
页:
1
[2]