查找::文件预处理

Question

我想指定一个目录，并递归查找子目录中的每个文件。在find chdir的目录下，我想在find之前做一些处理读取文件。这里有一个简单的代码片段来演示这个问题。它不会递归到子目录中，但看起来应该如此。我可以验证子目录和文件是否存在，因为如果我在没有预处理密钥的情况下调用find，那么我将获得列表。我一直没有使用过Perl，所以我很难过。

find({ 
    wanted => \&wanted, 
    preprocess => \&preprocess 
}, "/home/nelson/invoices/"); 


# function definitions 

sub wanted { 
    print "Calling wanted...\n"; 
    print "\t" . $File::Find::name . "\n"; 
} 

sub preprocess{ 
    print "Calling preprocess...\n"; 
    print "\t" . $File::Find::dir . "\n"; 
} 

这里是输出。

Calling wanted... 
     /home/nelson/invoices 
Calling preprocess... 
     /home/nelson/invoices 
Calling wanted... 
     /home/nelson/invoices/1 

Answer 1

的preprocess功能有望恢复项目的（可能修改）列表进一步检查。在您的示例中，您可以在preprocess的末尾添加@_;以返回未修改的参数。您可以执行类似grep { $_ !~ /pattern/ } @_的操作来过滤不需要的项目，等等。