+ -
当前位置:首页 → 问答吧 → 怎么提取perl匹配上的字符串?

怎么提取perl匹配上的字符串?

时间:2011-04-15

来源:互联网

本帖最后由 看薄荷天空 于 2011-04-15 19:20 编辑

我想提取部分网页中的ftp地址,写了如下脚本,可是在输出的时候,$1总是空的。
  1. #!/usr/bin/perl
  2. for($i=34271;$i<34380;$i++)
  3. {
  4.         $url = "http://www.ffdy.cc/movie/$i.html";
  5.         use LWP::Simple;
  6.         $content = get $url;
  7. #       die "Couldn't get $url" unless defined $content;
  8.         if($content =~ m/ftp.*rmvb/is)
  9.         {
  10.                 print "page $i ok\n";
  11.                 $tmp=$1;
  12.                 print "$tmp\n";
  13.         }
  14.         else
  15.         {
  16.                 print "page $i no\n";
  17.         }
  18. }
复制代码
能用$1提取匹配后的字符串吗?结果总是空的……希望大家给我指点,谢谢

作者: 看薄荷天空   发布时间: 2011-04-15

if($content =~ m/ftp.*?rmvb/is)
        {
                print "page $i ok\n";
                $tmp=$&;

作者: ziyunfei   发布时间: 2011-04-15

回复 ziyunfei


    太感谢了!

作者: 看薄荷天空   发布时间: 2011-04-15