added benchmarking script, some speedup (7029.54/s vs 5829.19/s),

[Biblio-Isis] / scripts / dump_isis.pl

diff --git a/scripts/dump_isis.pl b/scripts/dump_isis.pl
index b4ea742..bd0e379 100755 (executable)
--- a/scripts/dump_isis.pl
+++ b/scripts/dump_isis.pl
@@ -7,7 +7,8 @@ use IsisDB;
 use Data::Dumper;
 
 my $isis = IsisDB->new (
-       isisdb => '/data/isis_data/ps/LIBRI/LIBRI',
+       isisdb => shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
+       debug => shift @ARGV,
 );
 
 print "rows: ",$isis->{'maxmfn'},"\n\n";