perl HTML::LinkExtor模块(2)

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

 $html_code = get("https://tieba.baidu.com/p/4929234512");
 $img_link = HTML::LinkExtor->new(\&IMG);
 $img_link->parse($html_code);

 #爬图片链接
 sub IMG{
     ($tag, %links) = @_;
     if($tag eq 'img'){
     #如里是图片标签
         foreach $key(keys %links){
             print "$key -> $links{$key}\n"
         }
     }
 }

 # src -> https://gss0.bdstatic.com/6LZ1dD3d1sgCo2Kml5_Y_D3/sys/portrait/item/343a66656e6768756f7069616e323031af7c
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> https://ss0.bdstatic.com/9r-1bjml2gcT8tyhnq/fc-feed/0/pic/51d89e69dd318a8c2bcb07341879ac64.jpg
 # src -> https://ss0.bdstatic.com/9r-1bjml2gcT8tyhnq/fc-feed/0/pic/223a419756a2209b84f8f306d021a4a5.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> https://gsp0.baidu.com/5aAHeD3nKhI2p27j8IqW0jdnxx1xbK/tb/editor/images/client/image_emoticon25.png
 # src -> https://gsp0.baidu.com/5aAHeD3nKhI2p27j8IqW0jdnxx1xbK/tb/editor/images/client/image_emoticon25.png
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> //tb2.bdstatic.com/tb/static-pb/img/head_80.jpg
 # src -> https://imgsa.baidu.com/forum/pic/item/d933c895d143ad4bcf1ab5478b025aafa40f0604.jpg
 # src -> https://imgsa.baidu.com/forum/pic/item/78f0f736afc379319921ed85e2c4b74542a911d4.jpg
 # src -> https://imgsa.baidu.com/forum/pic/item/2f2eb9389b504fc23bf50aaaecdde71191ef6df3.jpg
 # src -> https://imgsa.baidu.com/forum/pic/item/d100baa1cd11728ba5c4656bc1fcc3cec2fd2c8a.jpg
 # src -> https://imgsa.baidu.com/forum/pic/item/2df5e0fe9925bc31b71993f157df8db1cb137017.jpg

当然， 你还可以加一下正则， 去掉不是http://开头的也行