perl HTML::LinkExtor模块(1)

 use LWP::Simple;
 use HTML::LinkExtor;

 $html = get("http://www.baidu.com");
 $link = HTML::LinkExtor->new(\&check);
 $link->parse($html);

 sub check{
     ($tag, %links) = @_;
     print "$tag\n";
     foreach $key(keys %links){
         print "$key -> $links{$key}\n";
     }
 }

 #$tag为标签类型， 如a, link, img, script等
 #%links为hash类型， 键为链接名，值为链接值
 #比如对于a标签， links中的key为href, 值为href中的链接名
 # link
 # href -> /favicon.ico
 # link
 # href -> /content-search.xml
 # link
 # href -> //www.baidu.com/img/baidu.svg
 # link
 # href -> //s1.bdstatic.com
 # link
 # href -> //t1.baidu.com
 # link
 # href -> //t2.baidu.com
 # link
 # href -> //t3.baidu.com
 # link
 # href -> //t10.baidu.com
 # link
 # href -> //t11.baidu.com
 # link
 # href -> //t12.baidu.com
 # link
 # href -> //b1.bdstatic.com
 # img
 # src -> //www.baidu.com/img/bd_logo1.png

这个代码打印页面中的所有标签名与对应的link链接地址

如果我们要打印其中的所有img地址呢，那我们可能用$tag来判断是哪种标签， 从而再进一步提取数据

具体可以看这里: perl HTML::LinkExtor模块(2)