Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (14 sloc) 0.371 kb
#!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,
}, @start );
my $nfiles;
while ( my $file = $iter->() ) {
++$nfiles;
}
print "$nfiles files processed.\n";
Jump to Line
Something went wrong with that request. Please try again.