Struppi: Sortierung nach zwei Kriterien - wie nur?

Beitrag lesen

Wie bekomme ich aber das 2-te Sortierkriterium hin, um folgende Ausgabe zu bekommen:

Ausgabe:
Rolf = 2
Erwin = 1
Michael = 1
Otto = 1
Uwe = 1

Ihr wart auf dem richtigen Weg:

#!/usr/bin/perl -w  
use strict;  
my %ages = ('Rolf'=>2,'Erwin'=>1,'Otto'=>1,'Michael'=>1,'Uwe'=>1);  
my @keys = sort{   $ages{$b}  <=> $ages{$a}  
             || $a cmp $b } keys %ages;  
  
  
foreach my $key (@keys)  
{  
 print "$key = $ages{$key}\n";  
}

Struppi.