#! perl -slw
use strict;
use Time::HiRes qw[ time ];

our $N //= 1000;

open IDX, '+<:raw', 'syssort.idx' or die $!;
open DAT, '+<:raw', 'syssort' or die $!;

my $start = time;
for ( 1 .. $N ) {
    my $recnum = int rand 40e6;
    seek IDX, $recnum *8, 0;
    my $idx;
    read IDX, $idx, 8;
    my $pos = unpack 'Q', $idx;
    seek DAT, $pos, 0;
    chomp( my $record = <DAT> );
#    printf "Record %d: '%s'\n", $recnum, $record;
}
my $elapsed = time - $start;
printf "$N random records read in %.3f seconds (%6f/s)\n",
    $elapsed, $elapsed / $N;

__END__
c:\test>syssort-idx -N=1e4
1e4 random records read in 2.223 seconds (0.000222/s)

c:\test>syssort-idx -N=1e5
1e5 random records read in 21.332 seconds (0.000213/s)

c:\test>syssort-idx -N=1e3
1e3 random records read in 0.218 seconds (0.000218/s)

c:\test>syssort-idx -N=1e3
1e3 random records read in 0.226 seconds (0.000226/s)