Markus: Sortierung nach zwei Kriterien - wie nur?

Beitrag lesen

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