△▲ WebProg 初心者の質問 pert14▲△

△▲ WebProg 初心者� ..

561:nobodyさん
06/10/27 23:20:49 f73XwVuR
下に書いたのはリンク先がランダムに変わるやつなんですが、ランダムじゃなく
順番にローテーションしたいんですがどうすればよいのでしょうか？
（1から順に5までいったらまた1に戻る。この繰り返しにしたい）

#!/usr/bin/perl

#設定
$max = "5";

$page[1] = "URLﾘﾝｸ(a.com)
$page[2] = "URLﾘﾝｸ(b.com)
$page[3] = "URLﾘﾝｸ(c.com)
$page[4] = "URLﾘﾝｸ(d.com)
$page[5] = "URLﾘﾝｸ(e.com)

srand();
for(;;){
if($page[$rand = int(rand() * 100000) % $max +1]){
print"Location: $page[$rand]\n\n";
last;
}
}
exit;

次ページ