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