git.rot13.org Git - Biblio-Isis/blob - scripts/dump_isis.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use blib;
   5
   6 use IsisDB;
   7 use Data::Dumper;
   8
   9 my $isis = IsisDB->new (
  10         isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
  11         debug => shift @ARGV,
  12 );
  13
  14 print "rows: ",$isis->{'maxmfn'},"\n\n";
  15
  16 for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
  17         print $isis->to_ascii($mfn),"\n";
  18
  19 }
  20