in reply to recursively scanning directories
Some comments:
sub wanted { return if $_ eq '.' or $_ eq '..'; # matching /\./ might throw way too much push( @dirlist, $File::Find::name ) if -d $File::Find::name; # use push instead, # only if we are dealing with a directory }
|
|---|