Parent Directory | Revision Log
support for repeatable subfields, version bump to 0.20 THIS MIGHT BE INCOMPATIBILE CHANGE for old programs if they always expect to get scalar for values in hash generated by to_hash.
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use blib; |
5 | |
6 | use Biblio::Isis; |
7 | use Getopt::Std; |
8 | |
9 | BEGIN { |
10 | eval "use Data::Dump"; |
11 | |
12 | if (! $@) { |
13 | *Dumper = *Data::Dump::dump; |
14 | } else { |
15 | use Data::Dumper; |
16 | } |
17 | } |
18 | |
19 | my %opt; |
20 | getopts('dn:', \%opt); |
21 | |
22 | my $isisdb = shift @ARGV || die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n"; |
23 | |
24 | my $isis = Biblio::Isis->new ( |
25 | isisdb => $isisdb, |
26 | debug => $opt{'d'} ? 2 : 0, |
27 | include_deleted => 1, |
28 | # read_fdt => 1, |
29 | ); |
30 | |
31 | print "rows: ",$isis->count,"\n\n"; |
32 | |
33 | my $min = 1; |
34 | my $max = $isis->count; |
35 | $max = $opt{n} if ($opt{n}); |
36 | |
37 | for my $mfn ($min .. $max) { |
38 | print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'}); |
39 | print $isis->to_ascii($mfn),"\n"; |
40 | |
41 | } |
42 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |