perl如何提取网页内容,匹配字符串 20
my$page=$ua->get($url);$out=$page->content;print$out;#这行代码可以显示全部的网页内容#用下面的代码匹配my$str=...
my $page = $ua->get($url);
$out = $page->content;
print $out; #这行代码可以显示全部的网页内容
#用下面的代码匹配
my $str = "现在的位置";
$str = ~ m/$str/i;
print $str; #没有输出任何结果 ,还显示 “Use of uninitialized value $_ in pattern match (m//) at ./zikao.pl line 10"
#然后用下面的代码循环输出$out;
foreach( my $i=0; $i<-$out; $i++ ){
print $out->$i; #没有任何数据输出
}
我像实现的是获取到的网页后,判断有没有与 ”我的位置“匹配的字符串,然后输出结果。 展开
$out = $page->content;
print $out; #这行代码可以显示全部的网页内容
#用下面的代码匹配
my $str = "现在的位置";
$str = ~ m/$str/i;
print $str; #没有输出任何结果 ,还显示 “Use of uninitialized value $_ in pattern match (m//) at ./zikao.pl line 10"
#然后用下面的代码循环输出$out;
foreach( my $i=0; $i<-$out; $i++ ){
print $out->$i; #没有任何数据输出
}
我像实现的是获取到的网页后,判断有没有与 ”我的位置“匹配的字符串,然后输出结果。 展开
展开全部
功能实现:
抓取网页使用了LWP::Simple
字符串编码使用了Encode模块的encode方法,若不进行转码则会乱码
具体代码:代码先从网页下载网页文件,然后写入文件中
use LWP::Simple;
use utf8;
use Encode;
open F,'>d:/bc.html';
$content = get("http://www.baidu.com");
#Encode::_utf8_on($content);
$content=encode('gb2312',$content);
die "Couldn't get it!" unless defined $content;
print F $content;
#print 'complete';
close F;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |