求助，last失效

jnanako

各位前辈，我想循环打开一个目录里的所有文件，提出自己想要的信息，不加last，脚本是正常的，但为了调试方便，我只想提取一个文件的信息就退出循环。但加last后结果直接是空白，脚本框架如下，请帮忙看看是什么地方出问题了，不甚感激！

#循环打开一个目录里的所有文件
foreach $file(@dir)
{   
        open(FF,"$dir/$file"); #readline() error       
                while(<FF>)
        {                          
                  if(m/reg1/){提取匹配};
                if(m/reg2/){提取匹配};
                if(满足判断条件){打印到FF1};
               
        };

close FF;       
last;  #此处last失效
};
close FF1;

兰花仙子

1. 脚本加上use strict和use warnings，它能帮助你解决一半问题。
2. 有可能第一个文件没有满足匹配和if条件，所有输出空白。

jnanako

谢谢仙子，加use strict 和 use warnings 后，
提示readline() on closed filehand FF
这个是怎么造成的呢？
逻辑上好像是说的通的。

orangetouch

在open后面加上or die $!

jason680

各位前辈，我想循环打开一个目录里的所有文件，提出自己想要的信息，不加last，脚本是正常的，但为了调试方 ...
jnanako 发表于 2011-01-22 22:37

这不是last失效....
而是用错地方....
foreach $file(@dir)
{   
...
last;  #此处last失效
};
这样 foreach永远只会执行一次...


一般使用last都是以下这样
foreach(...){
  ...
  last if (条件成立);
}

jnanako

谢谢楼上的几位热心朋友，致敬！