I am working on the book Wicked Cool Perl Scripts as a learning tool to hely me
get from beginner to intermmediate perl. The second script of the book is
giving me lots of
trouble. Notably the part below. I realize he creating a hash and is using the
$File::Find::name object which may be a bit over my head. Can someone explain
to me what he is doing?
my %files; # Files indexed by size
# Go through the file tree and find all
# files with a similar size
find( sub
{
-f &&
push @{$files{(stat(_))[7]}}, $File::Find::name
}, @dir_list
);
BTW, am I sending this email to the correct place?
--
Derrick Cope
--from my mutt
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
