急 perl提取网页内容

rt77789

my ($city) = ($data =~ /<a href=\"\/city\/57036_full\.html\" target=\"_blank\" class=\"fb14\">(.*?)<\/a>/m); &nbsp;&nbsp;&nbsp;&nbsp;my ($weather, $temp) = ($data =~ /<td width=\"109\" align=\"center\">(.*?) \| (.*?)<\/td>/m); &nbsp;&nbsp;&nbsp;&nbsp;print $city, "\n", $weather, "\n", $temp, "\n

$data是html源码，不知道能不能满足你要求，还是要根据具体标签特征来抽取吧。

chibiaowu

可以的！太牛B了，刚接触perl很强大！谢谢你了

justlooks

#!/usr/bin/perl
while(<>){
   chomp;
   if(/<a[^<]*>([^<]*)</||/<td[^<]*>([^<]*)</){
      print "$1";
}
}
print "\n"

ynchnluiti

原帖由 justlooks 于 2009-2-20 15:03 发表
#!/usr/bin/perl
while(){
   chomp;
   if(/

这个有点抽象