Spalten sortieren

[Struppi]

while(<FILE>) {
    my @tmp=split / /,$_;
    $tmp[$t]="$tmp[$t]n$t";  #n$t als Index
    for($col = 0; $col<6;$col++) {
       $data[$col][$s]=$tmp[$col];
       }

Naja, ich hab das ja schon so ähnlich geschrieben:

while(<FILE>) {
push @data, [ split / /,$_ ];

...

Das halte ich für lesbarer und ist mit Sicherheit auch schneller, was bei der Menge Daten um die es geht durchaus wichtig ist.

Aber die Schwartzschen Transformation ist die beste Lösung.

Struppi.