add script to dump databases

[debbugs.git] / examples / debian / versions / dump_db.pl

diff --git a/examples/debian/versions/dump_db.pl b/examples/debian/versions/dump_db.pl
new file mode 100755 (executable)
index 0000000..e41fd1e
--- /dev/null
+++ b/examples/debian/versions/dump_db.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use MLDBM qw(DB_File Storable);
+use Data::Dumper;
+use Fcntl;
+
+$MLDBM::DumpMeth=q(portable);
+
+
+my %db;
+
+my $db_name = (shift @ARGV || 'versions.idx');
+
+tie %db, MLDBM => $db_name,O_RDONLY or die "unable to tie $db_name: $!";
+if (@ARGV) {
+     print Dumper([@db{@ARGV}]);
+}
+else {
+     print Dumper(\%db);
+}
+
+
+