Posted By

amosshapira on 01/13/08

Tagged

file count directory perl

Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

noah

Count directory entries in given directories

/ Published in: Perl

In response to a very simplistic solution suggestion using Shell, here is a basic version of what I use. The advantage of the solution below is that it is supposed to be much faster on directories with many files (I regularly use its full-blown version on directories with tens and hundreds of thousands of files).

Expand | Embed | Plain Text

#!/usr/bin/perl
$ARGV[0] = '.' unless @ARGV;
for my $dir (@ARGV) {
  opendir DIR, $dir or die "$dir: $!\n";
  $file =~ m:^\.: or ++$count
    while ($file = readdir DIR);
  closedir DIR;
}
print "$count\n";
exit 0;

Report this snippet Tweet

Comments

Subscribe to comments

Posted By: noah on June 17, 2008: Thanks for this -- the "simplistic solution" definitely bogs down when there's a significant number of files involved. Nice suggestion, I will try this next time I need to process a big directory tree.

Comment:

You need to login to post a comment.