Greetings folks!
how`s doing? ;) ,, i`ve one question for you. I`m trying to count files on
drive using file::find module with latest activestate perl build. I want to
achieve same result like running command "dir /S" from the root, e.g f:\dir
/S. Problem is that my script returns less files like dir command. Could
somebody help me out from this? In case that i want also to count links as
files, script returns 0 :( ..
xxxxxxx
use File::Find;
my $count = 0;
find sub {
$count++ if -f and -s and -B and not -l;
}, "f:\\";
print "$count\n";
xxxxxxxx
Thank you in advance for yours creative inputs.
Cheers,
Robert
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
