#!/usr/bin/perl

######################################################################
#								     #
# Esta script permite somar dois dicionários que já existam. 	     #
# O resultado é escrito no primeiro dicionário.			     #
#								     #
#						 		     #
# uso: 								     #
# perl sumDic.pl <dicionário1> <dicionário2> 			     #
#								     #
######################################################################



use Lingua::BiTerm;

$dic1=shift;
$dic2=shift;


print "A ler o o primeiro dicionário...\n";
$a=newFromFile Lingua::BiTerm($dic1);
print "A ler o o segundo dicionário...\n";
$b=newFromFile Lingua::BiTerm($dic2);

$b->sum($a);

# Para calcddular o teste estatístico remover o # do início da próxima linha
#$b->calcStat("right fisher");

# Para fazer o rank, remover o # do início da próxima linha
#$b->rank();


$b->printToFile($dic1);