Heraussuchen der Variable mit dem größten Wert

[Felix Schwarz]

Hai.

Eine Sache noch: Was mache ich, wenn alle Variablen den selben Wert haben ?
Dann sollte sowas wie "Ich bin mir nicht sicher" ausgegeben werden. Kann man das da noch irgendwie einbauen ?

use strict;
use warnings;

(...) [Definition]
my ($temp, $ergebnis, $sprache)

foreach $sprache (keys %H_Sprachen)
  {
   if (exists $H_Sprachen{$sprache})
    {
     $temp = -1;  #  oder irgendein anderer Wert, der nicht in der Definition steht.
     last;    # beendet die Schleife
    }
  if ($H_Sprachen{$sprache} > $temp)
    {
     $ergebnis = $sprache;
     $temp = $H_Sprachen{$sprache};
   }
}

if ($unsicher == -1)  { print "unsicher" };

das müsste helfen.
fs