Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
syswrite INDEX, pack( 'N', 0 ), 4;
syswrite INDEX, pack( 'N', tell *ARGV ), 4 while <>;
close INDEX;
  2. or download this
    #! perl -slw
use strict;
...

printf "Ave. %.6f seconds/record\n", ( time() -$start ) / $N;
  3. or download this
    [23:03:42.25] c:\test>indexFile 1GB.csv

...
[23:05:40.38] c:\test>readIndexedFile 1GB.csv
Ave. 0.003991 seconds/record