Help for this page
use File::Find; my $size = 0; find(sub { $size += -s if -f $_ }, "foo");
use File::Find; my $size = 0; find(sub { $size += -s if $File::Find::name eq "foo/$_" and -f $_}, "f +oo");
www.com | www.net | www.org
No recent polls found