#!/usr/bin/perl

######################################################################
#								     #
# Esta script permite somar a um dicionário, o resultado de algoritmo #
# com outros dois ficheiros.					     #
#								     #
# uso: 								     #
# perl createAndSum.pl <dicionário> <ficheiro1> <ficheiro2> [align]  #
#								     #
# O último argumento (align) deve ser utilizado se os ficheiros      #
# estiverem alinhados à frase. 					     #
#								     #
######################################################################



use Lingua::BiTerm;

$dic=shift;

$file1=shift;
$file2=shift;
$opt=shift;

print "A ler o dicionário...\n";
$a=newFromFile Lingua::BiTerm($dic);
print "Criar o novo  dicionário...\n";
if ((defined $opt) and ($opt eq "align"))
{
	$b=newKvec Lingua::BiTerm({aligned => 1},$file1,$file2);
}
else{
	$b=newKvec Lingua::BiTerm($file1,$file2);
}

$b->sum($a);

# Para calcular 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($dic);