print number of rows

[Biblio-Isis] / scripts / dump_isis.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";

}