#!/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);