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;