Array per Zufall sortieren

[rolfrost]

Mahlzeit

Schalte ich aber Zeile 80 dazu, dauert der Durchlauf des Programmes ca. 9 Stunden, was leider nicht mehr akzeptabel ist. Der unten aufgelistete Code-Teil macht zwar, was ich gerne hätte, aber leider relativ ineffizient (denke ich mal, es muss doch einen schnelleren Weg geben um ein Array per Zufall zu sortieren). Deshalb meine Bitte: Hat jemand von euch eine Idee, wie ich "schonender" ein Array per Zufall sortieren kann?

Probier mal das shuffle

subfunktion menge mischen (siehe PERL Doku: fisher_yates_shuffle)

sub shuffle{
 my $array = shift;
 my $i;
 for ($i = @$array; --$i;){
  my $j = int rand ($i+1);
  next if $i == $j;
  @$array[$i,$j] = @$array[$j,$i];
 }
}

und schreib dann die Datei.

Gruß, Rolf