trunk/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;
$max = $opt{n} if ($opt{n});

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

}

1	dpavlin	2	#!/usr/bin/perl -w
2
3			use strict;
4	dpavlin	42	#use blib;
5	dpavlin	2
6	dpavlin	36	use Biblio::Isis;
7	dpavlin	42	use Getopt::Std;
8	dpavlin	2	use Data::Dumper;
9
10	dpavlin	42	my %opt;
11			getopts('dn:', \%opt);
12	dpavlin	13
13	dpavlin	42	my $isisdb = shift @ARGV \|\| die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n";
14
15	dpavlin	36	my $isis = Biblio::Isis->new (
16	dpavlin	13	isisdb => $isisdb,
17	dpavlin	42	debug => $opt{'d'},
18	dpavlin	9	include_deleted => 1,
19	dpavlin	15	# read_fdt => 1,
20	dpavlin	2	);
21
22	dpavlin	32	print "rows: ",$isis->count,"\n\n";
23	dpavlin	4
24	dpavlin	42	my $min = 1;
25			my $max = $isis->count;
26	dpavlin	43	$max = $opt{n} if ($opt{n});
27	dpavlin	42
28			for my $mfn ($min .. $max) {
29			print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});
30	dpavlin	2	print $isis->to_ascii($mfn),"\n";
31
32			}
33