ランダムに表示

質問

($title,$mail,$home,$color,$link) = split '<>',$file;
foreach (split ',',$color) {
print qq|<font color="$_">■</font>\n|;
}
上記は先日教えていただいた方法で、$colorに登録されている複数の色を呼び出しているのですが、$colorの内容を全部表示させるのではなく、$colorに登録されている内容をランダムに表示させることも出来ればと考えています。
randを使うところまでは勉強したのですが、分割した$colorの内容をどのように使えばいいのか、素人知識ではさっぱりわかりません。
申し訳ございませんがよろしくお願いいたします。

回答No.1

tamahiro22 · ベストアンサー

rand で生まれる乱数は小数点以下の端数も含まれるので、
整数化するために、int と併せて用いると良いでしょう。

my @colors = split ',', $color;
print $colors[int(rand($#colors))];

このようにすれば、ランダムに選ばれたものが表示されるでしょう。

ここでは、@colors には５つの要素があるとします。
$#colors は、@colors の最後の添え字を表します。(添え字は ０ からなので、４)
その数値(４)で rand してから int を行えば、０～４の間の整数値が返ります。
その値を添え字として利用して、@colors が要素を取り出しています。

お礼

有難うございます。詳しく解説していただき勉強になりました。