参见:http://perldoc.perl.org/File/Find.html
File:Find:name
use File::Find;
my ($size, $dircnt, $filecnt) = (0, 0, 0);
sub process {
my $file = $File::Find::name;
#print $file, "/n";
if (-d $file) {
$dircnt++;
}
else {
$filecnt++;
$size += -s $file;
}
}
find(/&process, '.');
print "$filecnt files, $dircnt directory. $size bytes./n";
Find:Find:dir
use strict;
use File::Find;
my $path = ".";
find(/&process, $path);
sub process
{
my $dir = $File::Find::dir;
$dir =~ s/^/.;
$dir =~ s///g;
print $dir."//".$_."/n";
}
exit 0;
__END__
:endofperl