Perlについての質問箱 47箱目
■ このスレッドは過去ログ倉庫に格納されています
0143デフォルトの名無しさん
2011/06/06(月) 23:30:46.92@aiueo = ('a', 'b', 'c', 'd', 'e');
$rand = int(rand(6))
if($rand == 0){print "$aiueo[0]";}
elsif($rand == 1){print "$aiueo[1]";}
elsif($rand == 2){print "$aiueo[2]";}
elsif($rand == 3){print "$aiueo[3]";}
elsif($rand == 4){print "$aiueo[4]";}
このソースをなんとかしてまとめることは出来ませんか?
$aiueoの[]の中に乱数をそのまま入れたいんです、お願いします><
■ このスレッドは過去ログ倉庫に格納されています