トップページ⇒php

1001コメント371KB

Perlコーディング初心者質問スレ Part 50

レス数が950を超えています。1000を超えると書き込みができなくなります。

0999nobodyさん

2006/07/27(木) 11:52:44ID:???

@a = qw/1 2 3 4 5 6 7 8 9/;
print $a[int rand @a];

これでそれなりに全てが平等に抽選できてますかね？

レス数が950を超えています。1000を超えると書き込みができなくなります。