Initial revision

1 files changed, 14 insertions, 0 deletions

diff --git a/db-show b/db-show
new file mode 100755
index 0000000..5f16fc3
--- /dev/null
+++ b/db-show
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+use DB_File;
+
+die "syntax: $0 filename.db [...]\n" unless @ARGV;
+
+file: for my $file (@ARGV) {
+	my %h;
+	dbmopen(%h, $file, 0) || do {
+		warn "$0: dbmopen($file): $!\n";
+		next file;
+	};
+	print "$_ -> $h{$_}\n" for keys %h;
+}