#!/usr/local/bin/perl
# File: tieDBM

#Translate from one DBM format to another.

use Fcntl;    #necessary for the O_ flags in the ties.
use SDBM_File;
use NDBM_File;

$old_filename = "sdbmFile";
$new_filename = "ndbmFile";

tie %oldfile, 'SDBM_File', $old_filename
	or die "Can't open $old_filename\n";
tie %newfile, 'NDBM_File', $new_filename, O_CREAT|O_RDWR, 0644
	or die "Can't create $new_filename\n";

while (($key,$value) = each(%oldfile)) {
	$newfile{$key} = $value;
}
untie (%oldfile);
untie (%newfile);
