#!/usr/bin/perl
($username)= @ARGV;
open (OLD,"recout.mlf") || die ("Unable to open recout.mlf for reading");
open (OLD1,"recout1.mlf") || die ("Unable to open recout1.mlf for reading");
open (NEW,">finalresult.txt") || die ("Unable to open file for writing");
$find="-";
$total=0;
while () {
if(/$find/) {
$total=$total+(substr($_, index($_,"-") , 29) );
#print (substr($_, index($_,"-") , 29) );
}
}
print (NEW "log-liklihood for selected speaker: ");
print NEW $total;
print (NEW "\n");
print ("log-liklihood for selected speaker: ");
print $total;
print ("\n");
close(OLD);
$total1=0;
while () {
if(/$find/) {
$total1=$total1+(substr($_, index($_,"-") , 29) );
#print (substr($_, index($_,"-") , 29) );
}
}
print (NEW "log-liklihood for anti speaker: ");
print NEW $total1;
print ("log-liklihood for anti speaker: ");
print $total1;
$diff= $total-$total1;
print (NEW "\n");
print(NEW "Difference is: $diff\n\n");
print ("\n");
print("Difference is: $diff\n\n");
close(ANTI);
close(NEW);