perl的File::Find模块
时间：2010-09-26 来源：lyb137
在目录递归的时候，可以用File::Find模块来处理。
File::Find自带三个变量：
$File::Find::name
$File::Find::dir
$_;
For example:
列出指定目录下所有目录名：
#!/usr/bin/perl -w
use strict;
use File::Find;
my $path = "/var/dir";
sub dir {
if(-d $File::Find::name){
print "$File::Find::name\n";
}
}
find(\&dir,$path);
use strict;
use File::Find;
my $path = "/var/dir";
sub dir {
if(-d $File::Find::name){
print "$File::Find::name\n";
}
}
find(\&dir,$path);
相关阅读 更多 +
