trunk/scripts/dump_isisdb.pl

#!/usr/bin/perl -w

use strict;
use blib;

use IsisDB;
use Data::Dumper;

my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
my $debug = shift @ARGV;

my $isis = IsisDB->new (
        isisdb => $isisdb,
        debug => $debug,
        include_deleted => 1,
#       read_fdt => 1,
);

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

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