perl 索引遍历
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 , 表示当前文件所在目录