#!/usr/bin/perl -w
# Programa per buscar el mínim evalue.
# http://www.ccg.unam.mx/~contrera/bioinfoPerl1/bioinfoPerl.html

# $ARGV[0] conté el primer paràmetre que s'entra al programa = és el nom de l'arxiu.

open(MYFILE,$ARGV[0]) || die "Ho sento, no trobo l'arxiu $ARGV[0]. \n";

$i = 1;

my %subjectID;
my %evalue;

$evaluemespetit = 9999;                    # Valor impossible per poder començar. 9999 mai serà el més petit.

while(<MYFILE>)                            # Significa: per a cada línia executa el bloc de codi entre {}.
{
   #print $_;                              # La variable especial $_ conté la línia actual.

   ($subjectID[$i], $evalue[$i]) = split;  # split separa $_ en el 2 valors:

   print "$subjectID[$i] ";
   print "$evalue[$i]\n";

   if ($evalue[$i] < $evaluemespetit)
   {
       $subjectIDmespetit = $subjectID[$i];
       $evaluemespetit = $evalue[$i];
   }

    $i = $i + 1;

}

close(MYFILE);


print "El més petit és $subjectIDmespetit  $evaluemespetit.\n";

# Creem un nou arxiu temporal evaluebuscat.tmp només per guardar el valor trobat.

open(MYFILE2,">evaluebuscat.tmp") || "Ho sento, no puc crear l'arxiu evaluebuscat. \n";

print MYFILE2 "$subjectIDmespetit\n";

close(MYFILE2);
