perl 目录遍历
使用perl的 File::Find模块，目录遍历将会很简单，且定制性灵活性非常高，以下是个例子use File::Find;
find( \&wanted, 'D:\tmp\workspace_eclipse_j2ee\my_project' , 'c:/tmp');
sub wanted {
-d $_ && print "$File::Find::name\n";
}
该程序打印出D:\tmp\workspace_eclipse_j2ee\my_project, c:/tmp 下所有子目录。
另外一些变量谨记：
$_ ,表示当前遍历到的文件
$File::Find::name ,表示当前文件的全路径名
$File::Find::dir , 表示当前文件所在目录
页:
[1]