sort

[Christian Kruse]

你好 Gustl,

@sortiert = map { $_->[0]} sort {  $b->[5] <=> $a->[5]  } map { [ $_, (split/;/)[0,5] ] } @unsortiert;

Warum machst du es dir so Kompliziert?

  
my @sorted = sort {  
  (split /;/,$a)[4] <=> (split /;/,$b)[4]  
} @unsorted;  

Hint dazu: die Zählung bei Array-Indizes fängt bei 0 an ;)

再见,
 克里斯蒂安