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