Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use strict;
...
    ($f, $d) = (0, 0);
    print "$arg\nFiles\t: $$_[0]\nDirs\t: $$_[1]\n" for count_files(\@
+dir);
}

Select or download this

$ time perl test.pl /tmp/ /usr/bin/ /media/
/tmp/
Files    : 844
...
real    0m0.111s
user    0m0.030s
sys    0m0.070s