Select Code to Download

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

close OUT; close IN;

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