#!/usr/bin/perl -w

# dump on stdout the data contained in a db file.
# Print one line for each record in this format
#  <key> = <value>
#
# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
#

use strict qw(O_RDONLY);
use DB_File;

my $dbfile = shift || die "which db file ?";
my %map;
tie(%map, 'DB_File', $dbfile, O_RDONLY, 0664);
while(($key,$value) = each %map) {
	print "$key = $value\n";
}

