日志处理中perl模块File::Find的使用

use File::Find;

#######################################################################
### 找出指定目录下所有需要处理的日志文件名存储到一个数组中 ###
#######################################################################
my $path = 'E:\study\perl\NLCH\d=2\Change_Fall';
my @files; #存储需要处理的日志文件名
sub wanted { #找出需要处理的日志文件的完整路径名和文件名
if ($File::Find::name =~ /log_.+\.txt$/) {
push @files, $File::Find::name;
}
}
find( \&wanted, $path ); #找出所有需要处理的日志文件名，存储到@files中