Help for this page

Select Code to Download


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

...

print ("Counted $line lines\n");
print ("It took ", timestr($difference), "\n");
  2. or download this
    [sk]% bench *.csv

Counted 900285 lines
It took  2 wallclock secs ( 1.88 usr +  0.27 sys =  2.15 CPU)