Re^3: quickest way to find number of files in a directory?

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.

Comment on Re^3: quickest way to find number of files in a directory? Download Code

Replies are listed 'Best First'.
Re^4: quickest way to find number of files in a directory? by Anonymous Monk on Mar 13, 2010 at 02:02 UTC
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]

Replies are listed 'Best First'.

Re^4: quickest way to find number of files in a directory?
by Anonymous Monk on Mar 13, 2010 at 02:02 UTC

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]