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

Depending on the amount of the files you're talking about, maybe File::Find::Rule fit your needs:

use strict;
use warnings;
use File::Find::Rule;

my @files = File::Find::Rule->file()->in('/my/path');
print scalar @files, $/;
[download]

Igor 'izut' Sutton
your code, your rules.

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

Replies are listed 'Best First'.
Re^2: quickest way to find number of files in a directory? by Anonymous Monk on Apr 05, 2007 at 15:38 UTC
Are we talking quick, as in coding/thinking time? ` ls -a1 \| wc -l` Well -2 entries for . and ..	[reply]
Re^2: quickest way to find number of files in a directory? by Anonymous Monk on Apr 05, 2007 at 15:35 UTC
Are we talking quick, as in coding/thinking time? ` ls -a1 \| wc -l`	[reply]
Re^3: quickest way to find number of files in a directory? by izut (Chaplain) on Apr 05, 2007 at 19:43 UTC
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]
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]