40 lines
507 B
Perl
Executable File
40 lines
507 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Cwd;
|
|
|
|
use File::Basename;
|
|
use File::DirWalk;
|
|
|
|
my $dw = new File::DirWalk();
|
|
|
|
my $size = 0;
|
|
|
|
$dw->setDepth(1);
|
|
|
|
$dw->onBeginWalk(sub {
|
|
my ($path) = @_;
|
|
|
|
if ($dw->filesInDir() > 0) {
|
|
print $dw->currentBasename() . "\n";
|
|
|
|
$size += -s $path;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
$dw->onDirLeave(sub {
|
|
print $dw->filesInDir(), " files ($size bytes)\n";
|
|
return SUCCESS;
|
|
});
|
|
|
|
if (-e $ARGV[0]) {
|
|
$dw->walk($ARGV[0]);
|
|
} else {
|
|
my $cwd = getcwd();
|
|
$dw->walk($cwd);
|
|
}
|