#!/usr/bin/perl

$schedine = shift or die "Inserisci le schedine da controllare !";
$partite = shift or die "Inserisci le i risultati delle partite da controllare !";

die "Troppi argomenti in input !" if ($#ARGV >= 0);

%hashPartite;
open($filePartite, "<", $partite) or die "$! - \"$partite\" not found";
while(<$filePartite>) {
    chomp;
    if (m/^(\w*-\w*)\s+(\d+)-(\d+)$/) {
        $result = "1";
        $result = "X" if($2 == $3);
        $result = "2" if($2 < $3);
        $hashPartite{$1} = $result;
    }
}
close $filePartite;

# Debug Print Results
#foreach (keys %hashPartite) {
#    print "$_ --> $hashPartite{$_}\n";
#}


open($fileSchedina, "<", $schedine) or die "$! - \"$schedine\" not found";
open($fileScrittura, ">", "check") or die $!;
while(<$fileSchedina>) {
    if (m/^#Schedina/) {
        print $fileScrittura $_;
        $quotaTotale = 1.0;
        $vittoria = "SI";
        next;
    }
    if (m/(\w*-\w*)(\s+)(\w)(\s+)(\d+.\d+)$/)
    {
        $quotaTotale *= $5;
        $guess = "NO";
        $guess = "OK" if ($hashPartite{$1} eq $3);
        $vittoria = "NO" if ($guess eq "NO");
        print $fileScrittura "$1$2$3$4$5 --> $guess\n";
    }
    if (m/^#Importo Scommesso\s+(\d+)$/) {
        $possibileVincita = $quotaTotale*$1;
        print $fileScrittura "#Importo Scommesso: $1\n";
        print $fileScrittura "#Moltiplicatore: $quotaTotale\n";
        print $fileScrittura "#Possibile Vincita: $possibileVincita\n";
        print $fileScrittura "#Vincita: $vittoria\n\n";
    }

}
close $fileScrittura;
close $fileSchedina;