3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Biblio::Isis; |
use Biblio::Isis 0.24; |
7 |
use Getopt::Std; |
use Getopt::Std; |
8 |
|
|
9 |
BEGIN { |
BEGIN { |
17 |
} |
} |
18 |
|
|
19 |
my %opt; |
my %opt; |
20 |
getopts('do:l:', \%opt); |
getopts('do:l:v', \%opt); |
21 |
|
|
22 |
my $isisdb = shift @ARGV || die "usage: $0 [-o offset] [-l limit] [-d] /path/to/isis/BIBL\n"; |
my $isisdb = shift @ARGV || die "usage: $0 [-v] [-o offset] [-l limit] [-d] /path/to/isis/BIBL\n"; |
23 |
|
|
24 |
my $isis = Biblio::Isis->new ( |
my $isis = Biblio::Isis->new ( |
25 |
isisdb => $isisdb, |
isisdb => $isisdb, |
26 |
debug => $opt{'d'} ? 2 : 0, |
debug => $opt{'d'} ? 2 : 0, |
27 |
include_deleted => 1, |
include_deleted => $opt{'v'}, |
28 |
# read_fdt => 1, |
# read_fdt => 1, |
29 |
|
ignore_empty_subfields => $opt{'v'} ? 0 : 1, |
30 |
); |
); |
31 |
|
|
32 |
print "rows: ",$isis->count,"\n\n"; |
print "rows: ",$isis->count,"\n\n"; |