HTML::Parser

解析HTML。本例为找出一个html文本中的所有图片的地址。(即IMG标签中的src)

子程序start中的“$tag =~ /^img$/”为过滤出img标签。

如果换为“$tag =~/^a$/”,即是找出所有的链接地址。

#!/usr/bin/perl 

use LWP::Simple; 
use HTML::Parser; 

my $url = shift || "http://www.chinaunix.net"; 
my $content = LWP::Simple::get($url) or die("unknown url\n"); 

my $parser = HTML::Parser->new( 
         start_h => [&start, "tagname, attr"], 
         ); 

$parser->parse($content); 
exit 0; 

sub start 
{ 
   my ($tag, $attr, $dtext, $origtext) = @_;    
   if($tag =~ /^img$/) 
   {    
      if (defined $attr->{'src'} ) 
      { 
         print "$attr->{'src'}\n";    
      } 
   } 
}


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值