PERL LWP

概述#! /usr/bin/perl use LWP::Simple; use Encode; my $targetfile = "C:/Users/Administrator/Desktop/123.txt"; open(TARGETHANDLE, ">".$targetfile); my $url='http://www.baidu.com/s?wd=百度'

#! /usr/bin/perl use LWP::Simple; use Encode;  my $targetfile = "C:/Users/administrator/Desktop/123.txt"; open(TARGETHANDLE,">".$targetfile);  my $url='http://www.baIDu.com/s?wd=百度'; my $content = get $url;   while($content =~ /(\<h3[^\>]*?\>(.+?)\<\/h3\>)/ig)  #先把h3标签取出来 {         	my $x = ;     	$x =~ s/\<[^\>]*?\>//g;   #再去掉所有的HTML标签         	print  encode("gb2312",$x),"\n";    #剩下的就是标题的内容了 	#print TARGETHANDLE encode("utf-8",decode("utf-8",$content)); 	#print TARGETHANDLE $content;}

总结

以上是内存溢出为你收集整理的PERL LWP全部内容，希望文章能够帮你解决PERL LWP所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。