use File::Find;
find(sub {
next unless/\.pm$/;
$file = $File::Find::name, $size = -s _ if -s > $size;
}, "Bourque:Applications (Mac OS 9):MacPerl ƒ:lib:");
print "$file: $size\n";
This is why Perl needs to have so many shortcuts. This is why Perl is cool.
FWIW, the answer is CPAN.pm.
Why Perl Is As It Is 0 Comments More | Login | Reply /