网页中解析出链接代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】网页中解析出链接

作者:dezai / 发布于2014/9/12/ 493


	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";
	
	 }
	
	 }
	 }
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　链接　

同语言下

可能有用的

dezai贡献的其它代码(1065)