Zeilen einlesen und nach dritter Spalte sortieren - #114157 (Allgemeines zu Perl)

leo11

2008-08-31 16:06

User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]

Quote
BEACHTE: das Ergebnis der Sortierung ist aber ein *ARRAY* kein *HASH*, die Sortierung von HASHES ist in Perl per Definition willkürlich.

D.h ich kann mit der Zeile

Code (perl): (dl )

my @sorted_zwoelfer = sort{ $all_zwoelfer{$a}->[1][1] <=> $all_zwoelfer{$b}->[1][1] } keys %all_zwoelfer;

den Hash in der sortierten Abfolge, definiert in @sorted_zwoelfer, abfragen.

Code (perl): (dl )

1
2
3

for my $x (0..2) {
    print "$all_zwoelfer{$sorted_zwoelfer[$x]}->[1][0]\n";
}

Vielen Dank.