Perl遍历查找文件
使用Perl查找当前目录下的所有PDF文件
#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;
my $local_file = "./";
sub wanted {
my $findfile = $File::Find::name;
if ( $findfile =~ /.pdf$/ ) {
print("$findfile
");
}
}
find(&wanted, $local_file);