added -d path and -n flags

[Biblio-Isis] / scripts / dump_isisdb.pl

#!/usr/bin/perl -w

use strict;
#use blib;

use Biblio::Isis;
use Getopt::Std;
use Data::Dumper;

my %opt;
getopts('dn:', \%opt);

my $isisdb = shift @ARGV || die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n";

my $isis = Biblio::Isis->new (
        isisdb => $isisdb,
        debug => $opt{'d'},
        include_deleted => 1,
#       read_fdt => 1,
);

print "rows: ",$isis->count,"\n\n";

my $min = 1;
my $max = $isis->count;

for my $mfn ($min .. $max) {
        print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});
        print $isis->to_ascii($mfn),"\n";

}