8 use MARC::File::USMARC;
10 use Benchmark qw( timethese cmpthese ) ;
12 my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI';
14 my $isis = IsisDB->new (
19 my $rows = $isis->{'maxmfn'};
21 my $db = OpenIsis::open( $isisdb );
23 print "rows: $rows\n\n";
27 my $r = timethese( -5, {
29 $isis->fetch( $mfn++ % $rows + 1 );
32 OpenIsis::read( $db, $mfn++ % $rows + 1 );