発生させた乱数をどう使うかがポイントです。IF文で分岐させて出力するタグの内容を変えるだけでいろいろなページができます。 # 乱数を発生させるプログラム # 乱数初期化(Perlのバージョンによっては必要ないので、必要ない場合には#をつけてコメントアウトする # srand(time()); # 0から4の乱数を発生 $ransu=int(rand(5));
# 乱数を発生させるプログラム # 乱数初期化(Perlのバージョンによっては必要ないので、必要ない場合には#をつけてコメントアウトする # srand(time()); # 0から4の乱数を発生 $ransu=int(rand(5));