sub get_size() {
my $size = 0;
my $dir = shift;
find(sub { $size += -s if -f $_ }, $dir);
return $size;
}
该代码依赖File,所以需要:
use File::Find;
sub get_size() {
my $size = 0;
my $dir = shift;
find(sub { $size += -s if -f $_ }, $dir);
return $size;
}
该代码依赖File,所以需要:
use File::Find;