Re^4: fast count files


Keep It Simple, Stupid
	PerlMonks

Re^4: fast count files

by cdarke (Prior)

on Jan 06, 2012 at 11:10 UTC ( [id://946578]=note: print w/replies, xml )

Need Help??

in reply to Re^3: fast count files
in thread fast count files

You might have issues using wc -l on Windows, unless you have installed it from somewhere like GNU. However it is easy to implement your own in Perl.
Based on BrowserUk's ideas:

use strict;
use warnings;

my $t=time; 

# $n = `attrib /s c:\\* | wc -l`; 

open (my $pipe, '-|', 'attrib /s c:\\*') or die "attrib: $!";

my $n = 0;
while (<$pipe>) { $n++ }
close $pipe;

printf "$n : %.f\n", time()-$t;
[download]

Gives: 380366 : 135 on a used space of 297GB.