#!/usr/local/bin/perl
#
# 960613/iha - new file
#

if ( ! @ARGV ) {
    print "usage: read_dbm fromndbm togdbm\n";
    exit
    }
$from=shift @ARGV;
$to=shift @ARGV;
   
print "Convert ",$from," to ",$to ,"\n";

use GDBM_File;
use NDBM_File;

tie %gdbm ,'GDBM_File', $to  , &GDBM_WRCREAT,0640;
tie %ndbm,  NDBM_File, $from, 1, 0;
%gdbm = %ndbm;

untie %gdbm;
untie %ndbm;




