#!/usr/bin/perl

# Esta script serve para transformar um ficheiro no formatio basico do kvec 
# num ficheiro DBM, para cesso mais rápido


#uso: perl createDB.pl <ficheirokvec> <ficheiro_output>


use Lingua::BiTerm;

$file=shift;
$db=shift;
print "ler o ficheiro.....\n";
$a=newFromFile Lingua::BiTerm($file,1);
print "criar a base de dados\n";
$a->createDB($db,1);