Help for this page

Select Code to Download


  1. or download this
    #! perl -sw
use strict;
...
print( OUT pack 'NQ', m[^(\d+),], $pos ), $pos = tell( IN ) while <IN>
+;

close OUT; close IN;
  2. or download this
    #! perl -slw
use strict;
...
C:\>1118102-searcher -N=10000 30GB.dat 30GB.idx | find /v "Record"
Lookup averaged 0.000162 seconds/record