path: root/db-show

#!/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;
}