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      , 表示当前文件所在目录