Well, you could also do `find /tmp -type f | wc -l`, but I think that backticks are evil. Ah, and we also could free our minds from Perl and write some nasty bash script code :-P.
Igor 'izut' Sutton
your code, your rules.
| [reply] [d/l] |
Hi;
What I would like is a Perl native recursive descent file counter, not just the files in one directory, but nested directories as well.
I would like the equivalent of:
"find $dir | wc -l" # I want all (files, dirs and symlinks)
I tried File::Find where my wanted was "sub {$file_count++}", but I get a warning "variable will not stay shared", but it seems to be the correct number.
Is there a better way?
Native Perl (or CPAN, but I don't see this on CPAN)...
Thanks,
Ken Wolcott
| [reply] |