/[Biblio-Isis]/trunk/scripts/dump_isisdb.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

Contents of /trunk/scripts/dump_isisdb.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 50 - (show annotations)
Fri Jul 7 21:11:01 2006 UTC (16 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 669 byte(s)
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

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26