http://www.perlmonks.org?node_id=1163495

flieckster has asked for the wisdom of the Perl Monks concerning the following question:

Hello, i have a directory, and subdirectories that i'd like to count files in. i can do that by changing directories and hard coding them to glob and then count the arrays up, but thats no fun!

i've been trying to use file::find to find the image type which in this case is a photoshop file. I got to the point where i can find those files, but i have 2 questions.

1. how do i exclude the invisible files? 2. it gives me a output of filenames, but how to push that into a single array so i can quantify it?
#!/usr/bin/perl -w use Net::FTP; use File::Copy; use Mail::Sender; use Net::SMTP; use File::Find; use POSIX qw(strftime); my $time = strftime("%I:%M:%S",localtime); my $date = strftime("%m-%d-%y",localtime); my $aeropostale = "/Volumes/photorepos/Partners/Aeropostale/post/insto +ck/"; my $psd ="\.psd"; # chdir($aeropostale) or warn "can not get to $aerpostale $!\n"; foreach ($aeropostale) { find( { wanted => \&findfiles, }, "$aeropostale" ); sub findfiles { if (/$psd/){ print "$_\n"; } } }