Dann sortieren bzw sortiert ausgeben ...
foreach $user ( sort keys %hash ) { foreach $col1 ( sort keys ${ $hash{$user} } ) { foreach $col2 ( sort keys ${ $hash{$user}{$col1} } ) { foreach $col3 ( sort keys ${ $hash{$user}{$col1}{$col2} } ) { print "$user;$col1;$col2;$col3\n"; } } } }
Dies sortiert, meines wissens nach, primär nach $user, dann nach $col1, dann nach $col2, und dann nach $col3 und ist damit am Ziel vorbei. Perl kann mit rationalen zahlen umgehen und sortieren, weil alle zahlen ersteinmal in perl als rationale gespeichert werden (siehe doku nahe 'use integer') Das oben funktioniert, wenn mann das Hash anders aufbaut foreach (<STDIN>) { my @f=split(/;/,$_); $hash{$f[3]}{$f[1]}{$f[0]}{$f[2]}=1; } foreach $col3 ( reverse sort keys %hash ) { foreach $col1 ( reverse sort keys ${ $hash{$col3} } ) { foreach $user ( sort keys ${ $hash{$col3}{$col1} } ) { foreach $col2 ( sort keys ${ $hash{$col3}{$col1}{$user} } ) { print "$user;$col1;$col2;$col3\n"; } } } } Gruß Kai