Hi Benne,
ich habe dich zu früh gelobt. Es klappt leider nicht.
%ages = ('Rolf'=>2,'Erwin'=>1,'Otto'=>1,'Michael'=>1,'Uwe'=>1);
@keys = sort{$ages{$b} <=> $ages{$a} || $names{$a} cmp $names{$b}} keys %ages;
foreach $key (@keys)
{
print "$key = $ages{$key}\n";
}
Der Output ist wieder:
Rolf = 2
Michael = 1
Otto = 1
Erwin = 1
Uwe = 1
Ich möchte aber diesen Output haben:
Rolf = 2
Erwin = 1
Michael = 1
Otto = 1
Uwe = 1
Bei gleichen Zahlen soll auch nach Name sortiert werden.
Weist du wo der Fehler ist?
Bye
Markus