死循环，请高手指点（新手）

while (<FP>)
      {
        my ($long,$_long,$outdata);
        chomp;
        $file_line = $_;
        switch ($file_line)
          {
           case /google\.co.*ie=(.*?)(?:&|\")/
              {
                  dosomething
              }
           case /google\.com/
              {
                 dosomething
              }
          }
        }

第一个case 死循环了，请高手指点啊。谢谢

Perl 6 的语法？还是说 Perl 5.10 也引入了这个语法？

用elsif吧

可能是 use Switch 了吧。
Perl 5.10 是 given/when，不是 switch/case。

http://perldoc.perl.org/Switch.html

用elsif问题解决。谢谢诸位。

应该就是了。Perl 5.8 的模块。