trunk/scripts/dump_isisdb.pl

#!/usr/bin/perl -w

use strict;
use blib;

use IsisDB;
use Data::Dumper;

my $isis = IsisDB->new (
        isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
        debug => shift @ARGV,
        include_deleted => 1,
);

print "rows: ",$isis->{'maxmfn'},"\n\n";

for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
        print $isis->to_ascii($mfn),"\n";

}

1	dpavlin	2	#!/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	dpavlin	7	isisdb => shift @ARGV \|\| '/data/isis_data/ps/LIBRI/LIBRI',
11			debug => shift @ARGV,
12	dpavlin	9	include_deleted => 1,
13	dpavlin	2	);
14
15	dpavlin	4	print "rows: ",$isis->{'maxmfn'},"\n\n";
16
17	dpavlin	2	for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
18			print $isis->to_ascii($mfn),"\n";
19
20			}
21