Perl: Hash nach Werten sortieren

[Rolf]

Hallo Frank,
probier doch mal dieses Script (es mag zwar etwas umständlich erscheinen, aber es geht):

---------schnipp---------------

hash Beispiel

%bewertung=(
"Otto.htm","4",
"Karl.htm","5",
"Cäsar.htm","3",
"Meier.htm","2",
"Rolf.htm","1"
);
$i=1;
$a=1;
for(%bewertung)
{
if($i%2 != 0)
{
  $url[$i] = $_;
}
else
{
$note[$i] = $_;
}
if($i%2 ==0)
{
$liste[$a] = "$note[$i].er Platz: $url[$i-1]";
$a++;
}
$i++;
}

Nach Platz sortieren

@liste = sort(@liste);
for(@liste)
{
print $_,"<br>";
}
---------schnapp-------------
...Die Ausgabe sieht so aus:

1.er Platz: Rolf.htm
2.er Platz: Meier.htm
3.er Platz: Cäsar.htm
4.er Platz: Otto.htm
5.er Platz: Karl.htm

Viele Grüße, Rolf