perl-File:Find

参见：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