sort Funktion - #61836 (Allgemeines zu Perl)

Andreas

2006-01-12 15:02

User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo an alle,
ich will den Inhalt eines Arrays(aus einer Datei):
nach der 2.Spalte aufsteigend sortieren, verucht hab ich das so:
input:
R43 R0402 14662 2387
C35 C0402 19424 475
C36 C0402 19552 3092
R42 R0402 14800 2685
C38 C0402 20046 4633
R36 R0402 13720 1817
R34 R0402 13228 948
C41 C0402 20449 2142
C42 C0402 20667 3807
R27 R0402 11992 2528

aoutput soll so sein:
C35 C0402 19424 475
C36 C0402 19552 3092
C38 C0402 20046 4633
C41 C0402 20449 2142
C42 C0402 20667 3807
R43 R0402 14662 2387
R42 R0402 14800 2685
R36 R0402 13720 1817
R34 R0402 13228 948
R27 R0402 11992 2528

so hab ichs versucht:

Code: (dl )

                  map chomp, @eingang;
                  map $_=[ split(/ +/, $_) ], @eingang;
                
                  push (@eingang2,join(" ",@{$_})) for sort vergl @eingang;

                  
                  sub vergl {
                       return -1 if $$a[1] lt $$b[1];
                      return 1 if $$a[1] gt $$b[1];
                  }

kann mir jemand sagen warum das nicht funzt?

Danke schon mal
Gruß
Andreas