会python真的可以为所欲为0(回)
380天前
这里还有人吗1(回)
565天前这里还有人吗0(回)
565天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
789天前到处都是羊，不想上班0(回)
869天前
鸽子
0(回)
874天前解析HTML。本例为找出一个html文本中的所有图片的地址。（即IMG标签中的src） |
子程序start中的"$tag =~ /^img$/"为过滤出img标签。 |
如果换为"$tag =~ /^a$/"，即是找出所有的链接地址。 |
详细的方法介绍，请见`perldoc HTML::Parser` |
QUOTE: |
#!/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"; |
} |
} |
} |
by: 发表于：2017-09-11 11:51:26 顶(0) | 踩(0) 回复
？？
回复评论