Eine Reihe von Zufallszahlen ohne Redundanz

[Christian Kruse]

Hallo Cheatah,

Christian hat dazu folgende Perl-Zeile produziert:

Christian, gib's zu - Du hast aus perldoc perlfaq4 geklaut ;-)

Nein, aus einem Algorithmen-Buch ;-)

push @new, splice(@resource_lines, rand @resource_lines, 1) while
(@resource_lines && @new < 10);

Jupp. Genau dies, nur in extrem performanter Form,

Ja, die Performance ist hier in der Tat leider ein Problem: durch das
splice() wird der Algorithmus sehr langsam. Da ist deine
Implementierung wesentlich schneller, aber an dieser Stelle (dem
Download-Script) war es relativ egal, ob das nun ein paar Ms schneller
oder langsamer lief.

Gruesse,
 CK