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.