16 |
debug => shift @ARGV, |
debug => shift @ARGV, |
17 |
); |
); |
18 |
|
|
19 |
|
my $isis_filter = IsisDB->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->{'maxmfn'}; |
my $rows = $isis->{'maxmfn'}; |
29 |
|
|
30 |
my $db = OpenIsis::open( $isisdb ); |
my $db = OpenIsis::open( $isisdb ); |
37 |
IsisDB => sub { |
IsisDB => sub { |
38 |
$isis->fetch( $mfn++ % $rows + 1 ); |
$isis->fetch( $mfn++ % $rows + 1 ); |
39 |
}, |
}, |
40 |
|
IsisDB_hash => sub { |
41 |
|
$isis->to_hash( $mfn++ % $rows + 1 ); |
42 |
|
}, |
43 |
|
IsisDB_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 |
|
|