From cafcd5d4368e57f162a641ed3f4835ecb5a6d391 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 28 Feb 2002 14:09:04 +0000
Subject: Initial revision

---
 db-show | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 db-show

(limited to 'db-show')

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;
+}
-- 
cgit v1.2.3