trunk/scripts/dump_isisdb.pl

#!/usr/bin/perl -w

use strict;
use blib;

use IsisDB;
use Data::Dumper;

my $isis = IsisDB->new (
        isisdb => '/data/isis_data/ps/LIBRI/LIBRI',
);

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

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

}

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