学习Lex遇到的问题集

bilbo0214

#perl实现, Perl Cookbook chapter20.3

use HTML::LinkExtor;

$filename = $ARGV[0];
$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";
}