Thread Zeilen einlesen und nach dritter Spalte sortieren (48 answers)
Opened by leo11 at 2008-08-14 08:06

leo11
 2008-08-31 14:21
#114151 #114151
User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]
Hallo liebe Perl-Fans,

ich tu mich mit dem sortieren schwer. Ich habe folgende Datenstruktur:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

my  @zw1 = (
             [ 'z3;;120;;5;;;' ],
             [ 'z4;;121;;52;;;', '52' ],
             [ 'z5;;122;;5;;;' ],
           );
my  @zw2 = (
             [ 'z6;;120;;4;;;' ],
             [ 'z7;;121;;51;;;', '51' ],
             [ 'z8;;122;;5;;;' ],
           );
my  @zw3 = (
             [ 'z9;;120;;6;;;' ],
             [ 'z10;;121;;50;;;', '50' ],
           );       

my %all_zwoelfer_ref =( 
                         zwoelfer1 => \@zw1,
                         zwoelfer2 => \@zw2,
                         zwoelfer3 => \@zw3,
                      );

print Dumper \%all_zwoelfer_ref;

Ich möchte die Keys zwoelfer1, zwoelfer2, zwoelfer3 nach folgenden Inhalten numerisch sortieren:
$all_zwoelfer_ref{'zwoelfer1'}->[1][1]
$all_zwoelfer_ref{'zwoelfer2'}->[1][1]
$all_zwoelfer_ref{'zwoelfer3'}->[1][1]

Im Ergebnis soll folgende Reihenfolge sein:
zwoelfer3
zwoelfer2
zwoelfer1

Hier mein Versuch:
%all_zwoelfer_ref = sort{ $a->[1][1] <=> $b->[1][1] } keys %all_zwoelfer_ref;
Die Fehlermeldung lautet: Can't use string ("zwoelfer3") as an ARRAY ref while "strict refs" in use

VG
leo

View full thread Zeilen einlesen und nach dritter Spalte sortieren