Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    find( sub { if ( ! -l and -f _ ) { $counter++; print $conf "$File:
+:Find::name\n" } }, $ARGV[0] );
    print " $counter\r";
}
  2. or download this
    
Benchmark: timing 30 iterations of 
...
 29485
 __ File::Find module:
 20 wallclock secs ( 8.17 usr +  7.32 sys = 15.49 CPU) @  1.94/s (n=30
+)