Counting LOTS of Files

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

I seem to be in strange spot. I need to count files in THOUSANDS and THOUSANDS of subdirectories, but with one catch. I need to count all of them but the file that have a 0 byte size. I know Find::File has this functionality, but I do not seem to be getting the correct syntax. All I need is to count and give me a number. Seems simple but I suck at Perl :)

Comment on Counting LOTS of Files

Replies are listed 'Best First'.
Re: Counting LOTS of Files by merlyn (Sage) on Oct 06, 2000 at 21:00 UTC
`use File::Find; my $count = 0; find sub { $count++ if -f and -s and not -l; }, "/top/level"; print "$count\n";` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]

Back to Seekers of Perl Wisdom