#!/usr/bin/perl
#
# 960613/iha - new file. Make *sure* key/val separator is \t.
#


if ( ! @ARGV ){
	print "usage: make_dbm name\n";
	exit;
}

$filename=shift @ARGV;

if (!dbmopen(%DBM, $filename, 0644)) {
	print "cannot open or create $filename\n";
	exit;
}

while (<STDIN>) {
	chop;
	($key, $val) = split(/\t/,$_, 3);
	$DBM{$key} = $val;
	$i++;
} 

printf "finished processing $i records\n";
exit;
