trunk/scripts/bench.pl

#!/usr/bin/perl -w

use strict;
use blib;

use IsisDB;
use OpenIsis;
use MARC::File::USMARC;

use Benchmark qw( timethese cmpthese ) ;

my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI';

my $isis = IsisDB->new (
        isisdb => $isisdb,
        debug => shift @ARGV,
);

my $rows = $isis->{'maxmfn'};

my $db = OpenIsis::open( $isisdb );

print "rows: $rows\n\n";

my $mfn = 1;

my $r = timethese( -5, {
        IsisDB => sub {
                $isis->fetch( $mfn++ % $rows + 1 );
        },
        OpenIsis => sub {
                OpenIsis::read( $db, $mfn++ % $rows + 1 );
        },
} );
cmpthese $r;

1	dpavlin	7	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6			use IsisDB;
7			use OpenIsis;
8			use MARC::File::USMARC;
9
10			use Benchmark qw( timethese cmpthese ) ;
11
12			my $isisdb = shift @ARGV \|\| '/data/isis_data/ps/LIBRI/LIBRI';
13
14			my $isis = IsisDB->new (
15			isisdb => $isisdb,
16			debug => shift @ARGV,
17			);
18
19			my $rows = $isis->{'maxmfn'};
20
21			my $db = OpenIsis::open( $isisdb );
22
23			print "rows: $rows\n\n";
24
25			my $mfn = 1;
26
27			my $r = timethese( -5, {
28			IsisDB => sub {
29			$isis->fetch( $mfn++ % $rows + 1 );
30			},
31			OpenIsis => sub {
32			OpenIsis::read( $db, $mfn++ % $rows + 1 );
33			},
34			} );
35			cmpthese $r;
36