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

代码语言

代码分类

【Perl】从 HTML网页中解析出链接

作者:汶纡 / 发布于2014/11/18/ 1540


	use LWP::Simple;
	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";

	 }

	 }
	 }
	}

　　

试试其它关键字

同语言下

可能有用的

汶纡贡献的其它代码(55)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3