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

qianzhuo

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

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

MMMIX

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

machine

用elsif吧

flw

原帖由 MMMIX 于 2008-12-1 10:00 发表
Perl 6 的语法？还是说 Perl 5.10 也引入了这个语法？

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

mybook12345

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

qianzhuo

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

MMMIX

原帖由 flw 于 2008-12-1 10:46 发表

可能是 use Switch 了吧。

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