create_dbm_suff.pl

#!/usr/bin/perl

use GDBM_File;

if($ARGV[0] eq "GDBM"){
tie(%LEX,GDBM_File,$ARGV[1],0666,0);
}
else{ dbmopen(%LEX,$ARGV[1],0666); }
while(<STDIN>)
{
$_ =~ /"([^"]+)","([^"]+)",$/;
$LEX{$1} = $2;
}
if($ARGV[0] eq "GDBM"){ untie(%LEX); }
else{ dbmclose(%LEX); }