新規記事投稿

フォロー記事投稿

記事のキャンセル

7月23日に、廣石 亮さんは書きました。

＞ランダム（時間でもＯＫ）で表示するページを変えるＣＧＩを教えてもらいませんか？
＞僕も一応やってはみたんですが、当然うまくいきませんでした。
＞
＞多分数行のプログラムで簡単に出来ると思うんだけど．．．駄目ですか？？
＞
数行で、ですか。(^^;;

じゃあ、こんな物かな? @location 配列の要素に設定したペーヂから無作為に
選んでジャンプします。

#!/usr/local/bin/perl

@location = ('http://www.host1.domain1/~user1/page-1.html',
             'http://www.host2.domain2/~user2/page-2.html',
             'http://www.any.domain/any/page/');
srand;
printf("Location: %s\n\n", $location[int(rand($#location + 1))]);

exit(0);