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         include_deleted => 1,
  13 );
  14
  15 print "rows: ",$isis->{'maxmfn'},"\n\n";
  16
  17 for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
  18         print $isis->to_ascii($mfn),"\n";
  19
  20 }
  21