use IsisDB;
use Data::Dumper;
+my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
+my $debug = shift @ARGV;
+
my $isis = IsisDB->new (
- isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
- debug => shift @ARGV,
+ 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";
}