#!/usr/bin/perl -w
use strict;
use DB_File;

die "usage: dbcreate-dump <file> <out.db>\n" unless (@ARGV == 2);
my($in_file, $out_db) = @ARGV;

die "Error: $!\n" unless -e $in_file;
die "Output DB exists\n" if -e $out_db;

local $/;
open IN_FILE, "< $in_file" or die "Couldn't open $in_file: $!\n";
my $file_contents = <IN_FILE>;
close IN_FILE or warn "Couldn't close $in_file: $!\n";

dbmopen my %DB, "$out_db", 0666 or die "Couldn't open DB: $!\n";
while($file_contents =~ /key: \"(.*)\" = \"(.*)\" END/g) {
    $DB{$1} = $2;
}
dbmclose %DB or warn "Couldn't close $out_db: $!\n";