Perl 从 HTML 网页中解析出链接
use LWP::Simple;
use HTML::LinkExtor;
$html = get("http://www.oschina.net");
$link_extor = HTML::LinkExtor->new(\&handle_links);
$link_extor->parse($html);
sub handle_links
{
($tag, %links) = @_;
if ($tag eq 'a') {
foreach $key (keys %links) {
if ($key eq 'href') {
print "Found a hyperlink to $links{$key}.\n";
}
}
}
}
开心洋葱 , 版权所有丨如未注明 , 均为原创丨未经授权请勿修改 , 转载请注明Perl 从 HTML 网页中解析出链接！
