変更時間を指定したい

質問

下記スクリプトのhtmの変更間隔を例えば30秒や15分などの時間単位で指定できるようにしたいのですが時間要素を改良することで可能でしょうか？

もし可能ならそのソースの記述方法をお教えください。

#!/usr/local/bin/perl

@htm = (
"001.htm",
"002.htm",
"003.htm",
"004.htm",
"005.htm",
"006.htm",
"007.htm",
"008.htm",
"009.htm",
"010.htm"
);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$n = @htm;
$n = $min%$n;
print "Location: http://www.hoge.co.jp/hoge/$htm[$n]\n\n";

exit;

ご教授のほど、どうぞよろしくお願い致します。

回答No.1

ssaass · ベストアンサー

現在時刻の分(現在が10:59なら"59")をhtmファイルの数(この例だと"001.htm"～"010.htm"の計10個)で割った余りによって表示させるhtmlファイルを選択しています。

10:59の場合、59を10で割ると余りが9です。
余りが0 --- 001.htm
余りが1 --- 002.htm
(中略)
余りが9 --- 010.htm
となり、010.htmが表示されます。

ちなみに、
$n = $min%$n;
の部分は、現在時刻の分($min)をhtmファイル数($n)で割った余りを再び$nという変数に代入する，
という処理を行っています。

このソースを修正して実現するというよりは、最初から書き直しになるんじゃないでしょうか？

お礼

ご回答ありがとうございました。
たいへん勉強になりました。

もう一度考えなおします、ありがとうございます。