Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  q{ : },
  scalar @filelist,
  qq{\n};

Select or download this

$ perl readdir-test.pl .
Scan time for directory . : 3.5e-05 seconds
...
$ perl readdir-test.pl test2/
Scan time for directory test2/ : 1.475231 seconds
Total entries in directory test2/ : 412483