Permalink
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (15 sloc) 397 Bytes
#!perl
use strict;
use warnings;
use File::Next;
my @start = @ARGV or die 'Must specify a starting directory.';
my $iter = File::Next::files( {
descend_filter => sub { $_ ne '.svn' && $_ ne '.git' },
sort_files => \&File::Next::sort_standard,
follow_symlinks => 0,
}, @start );
my $nfiles;
while ( my $file = $iter->() ) {
++$nfiles;
}
print "$nfiles files processed.\n";