/[Biblio-Isis]/trunk/scripts/bench.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/scripts/bench.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Wed Dec 29 15:10:34 2004 UTC revision 36 by dpavlin, Thu Jan 6 20:48:07 2005 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use IsisDB;  use Biblio::Isis;
7  use OpenIsis;  use OpenIsis;
8  use MARC::File::USMARC;  use MARC::File::USMARC;
9    
# Line 11  use Benchmark qw( timethese cmpthese ) ; Line 11  use Benchmark qw( timethese cmpthese ) ;
11    
12  my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI';  my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI';
13    
14  my $isis = IsisDB->new (  my $isis = Biblio::Isis->new (
15          isisdb => $isisdb,          isisdb => $isisdb,
16          debug => shift @ARGV,          debug => shift @ARGV,
17  );  );
18    
19  my $rows = $isis->{'maxmfn'};  my $isis_filter = Biblio::Isis->new (
20            isisdb => $isisdb,
21            debug => shift @ARGV,
22            hash_filter => sub {
23                    my $v = shift;
24                    return lc($v);
25            }
26    );
27    
28    my $rows = $isis->count;
29    
30  my $db = OpenIsis::open( $isisdb );  my $db = OpenIsis::open( $isisdb );
31    
# Line 25  print "rows: $rows\n\n"; Line 34  print "rows: $rows\n\n";
34  my $mfn = 1;  my $mfn = 1;
35    
36  my $r = timethese( -5, {  my $r = timethese( -5, {
37          IsisDB => sub {          Isis => sub {
38                  $isis->fetch( $mfn++ % $rows + 1 );                  $isis->fetch( $mfn++ % $rows + 1 );
39          },          },
40            Isis_hash => sub {
41                    $isis->to_hash( $mfn++ % $rows + 1 );
42            },
43            Isis_hash_filter => sub {
44                    $isis_filter->to_hash( $mfn++ % $rows + 1 );
45            },
46    
47          OpenIsis => sub {          OpenIsis => sub {
48                  OpenIsis::read( $db, $mfn++ % $rows + 1 );                  OpenIsis::read( $db, $mfn++ % $rows + 1 );
49          },          },
50    
51            OpenIsis_hash => sub {
52                    my $row = OpenIsis::read( $db, $mfn++ % $rows + 1 );
53                    my $rec;
54                    no strict 'refs';
55                    foreach my $f (keys %{$row}) {
56                            foreach my $v (@{$row->{$f}}) {
57                                    push @{$rec->{$f}}, OpenIsis::subfields($v);
58                            }
59                    }
60                    
61            },
62  } );  } );
63  cmpthese $r;  cmpthese $r;
64    
Legend:
Removed from v.7  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26