trunk/scripts/dump_isisdb.pl

#!/usr/bin/perl -w

use strict;
use blib;

use Biblio::Isis;
use Getopt::Std;

BEGIN {
        eval "use Data::Dump";

        if (! $@) {
                *Dumper = *Data::Dump::dump;
        } else {
                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'} ? 2 : 0,
        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	50	use blib;
5	dpavlin	2
6	dpavlin	36	use Biblio::Isis;
7	dpavlin	42	use Getopt::Std;
8	dpavlin	2
9	dpavlin	50	BEGIN {
10			eval "use Data::Dump";
11
12			if (! $@) {
13			Dumper = Data::Dump::dump;
14			} else {
15			use Data::Dumper;
16			}
17			}
18
19	dpavlin	42	my %opt;
20			getopts('dn:', \%opt);
21	dpavlin	13
22	dpavlin	42	my $isisdb = shift @ARGV \|\| die "usage: $0 [-n number] [-d] /path/to/isis/BIBL\n";
23
24	dpavlin	36	my $isis = Biblio::Isis->new (
25	dpavlin	13	isisdb => $isisdb,
26	dpavlin	50	debug => $opt{'d'} ? 2 : 0,
27	dpavlin	9	include_deleted => 1,
28	dpavlin	15	# read_fdt => 1,
29	dpavlin	2	);
30
31	dpavlin	32	print "rows: ",$isis->count,"\n\n";
32	dpavlin	4
33	dpavlin	42	my $min = 1;
34			my $max = $isis->count;
35	dpavlin	43	$max = $opt{n} if ($opt{n});
36	dpavlin	42
37			for my $mfn ($min .. $max) {
38			print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($opt{'d'});
39	dpavlin	2	print $isis->to_ascii($mfn),"\n";
40
41			}
42