Zufällig aus Array auswählen (Seite 2) (Allgemeines zu Perl)

[thread]5971[/thread]

Zufällig aus Array auswählen (Seite 2)

Taulmarill

2006-03-24 12:50

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

das script von master funktioniert nicht wie erwartet. es wird niemals "Z" ausgegeben. lieber das weiter oben gepostete beispiel von pq verwenden.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

master

2006-03-24 13:01

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Ah ja ganz vergessen: bei $# muss man immer +1 rechnen...

Quote
@array = (A..Z);
print $array[rand($#array+1)];

jetzt klappts wunderbar. ;-)
ps. Taulmarill: habe das so schon öfters benutzt...
nur in der Eile hier +1 vergessen...

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

esskar

2006-03-24 13:02

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Taulmarill,24.03.2006, 11:50]das script von master funktioniert nicht wie erwartet. es wird niemals "Z" ausgegeben. lieber das weiter oben gepostete beispiel von pq verwenden.[/quote]
ist ja auch klar. $#array ist eins zu kurz

Matze

2006-03-24 20:20

User since
2005-08-29
222 Artikel
BenutzerIn

Müsste dann nicht rand(@array); ausreichen ?
Im skalaren Context verwendet gibt es doch die Anzahl von Elementen zurück, oder ?

MfG. Matze

Mit freundlichen Grüßen: Matze

esskar

2006-03-24 20:29

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=pq,15.12.2003, 18:05]geht auch noch einfacher:
my $element = $array[rand @array];[/quote]
@matze: eben!

View all threads created 2003-12-15 18:35.