perl的File::Find模块

在目录递归的时候，可以用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);