Gather file count in directory

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

Replies are listed 'Best First'.
Re: Gather file count in directory by umasuresh (Hermit) on Jan 05, 2012 at 12:46 UTC
Check this out: count files in current directory	[reply]
Re^2: Gather file count in directory by Anonymous Monk on Jan 06, 2012 at 06:47 UTC
I am in need of a perl script..	[reply]
Re: Gather file count in directory by ~~David~~ (Hermit) on Jan 05, 2012 at 14:22 UTC
I always like the File::Slurp module. `use File::Slurp; my $dir = 'somedir'; my @files = read_dir( $dir ); my $num_of_files = scalar @files;` [download]	[reply] [d/l]
Re^2: Gather file count in directory by mr.nick (Chaplain) on Jan 05, 2012 at 18:14 UTC
If you're willing to slurp in the entire filelist, you can also do `my $num_of_files = scalar @{[<*>]};` [download] mr.nick ...	[reply] [d/l]
Re^2: Gather file count in directory by Anonymous Monk on Jan 06, 2012 at 06:24 UTC
The File::Slurp method is not giving the total number of files in a drive (as in C:// etc). It only gives an upper count of the files in directory doesnt give the count of files in folders ..	[reply]
Re: Gather file count in directory by trizen (Hermit) on Jan 06, 2012 at 01:20 UTC
For a decent number of files, you can use: `sub get_files_count { my ($dir) = @_; opendir my $dir_h, $dir or return 0; # Number of files return scalar grep { -f "$dir/$_" } readdir $dir_h; # Number of files+dirs return scalar @{[readdir $dir_h]} - 2; } print get_files_count('./');` [download] Or for a larger number of files, you can use: `sub get_files_count { my ($dir) = @_; opendir my $dir_h, $dir or return 0; my $files = 0; while(defined(my $file = readdir $dir_h)){ if($file eq '.' or $file eq '..'){ next; } # Uncomment the bellow line to count only files # next unless -f "$dir/$file"; ++$files; } closedir $dir_h; return $files; } print get_files_count('./');` [download]	[reply] [d/l] [select]
Re^2: Gather file count in directory by Anonymous Monk on Jan 06, 2012 at 06:27 UTC
I have tried this subroutine already but it takes a lot of time to count total files as disk size increases(for a drive containing 300gb used space it takes an hour to calculate the total files). I want a method which is a bit faster??	[reply]