历遍文件夹读取文件遇到的问题，求解！

telecomshy

我写了一小段程序用来历遍文件夹的所有文件，将需要的部分导入一个文件。代码如下：

#! c:\perl\bin\perl.exe -w
use File::Find;
use strict;
my $path='d:\\perltest\\inventory\\';

find(\&findout,$path);

sub findout{
  open(FH,"$File::Find::name");
  open(OUTFILE,'>>d:\\perltest\\PZ');
  while(<FH>){
    print OUTFILE "$_" if /function/;
   }
   }

运行是成功了，但是总是有readline() on closed filehandle FH at cell line 13提示,这是为什么呀。
另外，如果我把生成的新文件放在需要历遍的文件夹里，即$path目录，程序会一直运行，生成的文件会变得很大，怎么也想不明白，求达人帮忙解答。

MMMIX

[ 本帖最后由 MMMIX 于 2009-2-9 09:10 编辑 ]

ynchnluiti

如果我把生成的新文件放在需要历遍的文件夹里，即$path目录，程序会一直运行，生成的文件会变得很大

因为会重复搜索这个文件

ynchnluiti

但是总是有readline() on closed filehandle FH at cell line 13提示,这是为什么呀。

1. open(FH,"<$File::Find::name")
   
2. 改成
   
3. open(FH,"<$File::Find::name") or warn "$File::Find::name:$!";

复制代码

看看错误提示

telecomshy

原帖由 ynchnluiti 于 2009-2-8 23:55 发表

因为会重复搜索这个文件

晕，我太蠢了。谢谢！