Code · 2010-01-22

perl_File::Find

自定义路径查找以.xxx为结尾的文件..xp跟debian测试通过

#!perl
use warnings;
use File::Find;
find(\&a,'D:/test');
sub a{
       my $b = $File::Find::name;
           print "$b\n" if ($b =~ /\.xxx?$/i);
}

标签： perl