Hey, danke für deine Antwort, hab das Problem inzwischen aber schon gelöst. Hab die entsprechende Subroutine mal unten angehängt. Ich hol mir die Imgaebezeichnungen aus einem Verzeichnis, speicher sie in @fotos und ruf dann so folgende Subroutine auf
my @liste=&mischeListe(our @fotos);sub mischeListe{
my @fotos =@_;
for(my $i = @fotos; --$i; ){
my $j = int rand ($i+1);
next if $i == $j;
@fotos[$i,$j] = @fotos[$j,$i];
}
return @fotos;
}
...Falls es Dich oder jemand anderen interessiert..;)
Greets, LarsVegas
Datum: 12.07.2006-10:49
