如何在Perl的Find :: Find完成后才运行代码？

Question

你的Perl问题：

#!/usr/bin/perl 
use File::Find; 

#Find files 
find(\&wanted, $dir); 

sub wanted { #Do something } 
#Done going through all files, do below: 

other stuff { } 

所以，我基本上要解析目录和查找特定类型的文件。我可以用File :: Find成功完成。但是，我的下一步是，一旦我完成搜索文件，我想要执行下一个过程。

问题是，无论如何，我放在子想要{#Do something}后，得到执行，每次，我找不到文件！我知道这对于程序来说只是合乎逻辑的。但是，你能告诉我什么我需要做的做到这一点：

1]查找文件：使用>子想{#Do东西} 2]虽然没有更多的文件中搜索：>做些什么其他{}

谢谢！

Answer 1

修订答：（后OP澄清说，他只是希望以后find()完成搜索运行一些代码）：

由于find()没有以并行方式进行搜索，它会简单地返回时，所有的搜索完毕。因此，你不需要做什么特别的实现你的目标：

find(\&wanted, @directories_to_search); 
# Here be code that runs after search completes. 

---

原来的答案

您可以设置文件标志的建国所需的子程序：

my $files_not_found = 1; 
find(\&wanted, @directories_to_search); 
sub wanted { @args=@_; $files_not_found = 0; } 
if ($files_not_found) { 
    print "No files found!\n"; 
} 
# Here you do things after find is finished.