ランダムスクリプトに時間要素を取り入れたい

質問

次のような時間要素を下記ソースに取り入れたいのです。

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$n = @imgs;
$n = $sec%$n;

つまり上記要素を下記ソースに組み込んで画像の変更間隔を秒や分などの時間単位で指定できるようにしたいのですが下記スクリプトを利用して可能でしょうか？

#!/usr/local/bin/perl

$imgdir="./rndimg/";

if(!opendir(DIR,$imgdir)){
print "Content-type: text/html\n\n";
print "Directory open error.\n";
exit(1);}
@file=readdir(DIR);
closedir(DIR);

$k=0;
foreach $fi (@file){
if($fi =~ /(.*)(\.jpg|\.gif)$/){++$k;}}
srand();$a=int(rand($k));$j=0;
for($i=0;$i<=$a;$j++){
if($file[$j] =~ /(.*)(\.jpg|\.gif)$/){++$i;}}

open(IMAGE, "$imgdir$file[$j-1]");
binmode(IMAGE);
$size=read(IMAGE,$image, -s IMAGE);
close(IMAGE);
if($f =~ /\.jpg$/){print "Content-type: image/jpeg\n\n";}
else {print "Content-type: image/gif\n\n";}
binmode(STDOUT);
print $image;
exit;

色々考えたのですがどうもよくわかりません。
ご教授のほどどうぞよろしくお願いします。

回答No.2

leaz024 · ベストアンサー

> これで試したのですがうまく表示されません。

試されたスクリプトには、元の readdir と closedir、open の行が残ってますので、そこも削除してください。
また、Content-Type の出力部分でファイルの拡張子を調べている部分も、「$f =~ 」から「$file[$a] =~ 」に変更してください。

#!/usr/local/bin/perl

$n = 5; # 画像を変更する秒数
$imgdir="./rndimg/";

if(!opendir(DIR,$imgdir)){
print "Content-type: text/html\n\n";
print "Directory open error.\n";
exit(1);}
$k = @file = grep /\.(?:jpg|gif)$/, readdir(DIR);
closedir(DIR);

$a = int(time / $n) % $k;

open(IMAGE, "$imgdir$file[$a]");
binmode(IMAGE);
$size=read(IMAGE,$image, -s IMAGE);
close(IMAGE);

if($file[$a] =~ /\.jpg$/){print "Content-type: image/jpeg\n\n";}
else {print "Content-type: image/gif\n\n";}
binmode(STDOUT);
print $image;
exit;

補足

ご回答ありがとうございます！おかげさまで無事表示されました。

これは画像を変更する間隔を秒から時間にしたい場合、時間を秒に直して、例えば3時間後に画像を変更するに10800（秒）と書き換えればうまく機能するのでしょうか？

よろしくお願いします。

回答No.3

leaz024

> これは画像を変更する間隔を秒から時間にしたい場合、時間を秒に直して、例えば3時間後に画像を変更するに10800（秒）と書き換えればうまく機能するのでしょうか？

はい、その通りです。
その際、
　$n = 3 * 60 * 60;
のように書いておくと分かりやすく間違いも減り、変更もしやすくなります。

お礼

ご親切なご回答に感謝いたします！

この度は分かりやすいご説明ありがとうございました。また機会がありましたらどうぞよろしくお願い致しますm(＿）m

回答No.1

leaz024

$n 秒単位で画像を順番に表示するならば、
　$a=int(rand($k));
の代わりに
　$a = int(time / $n) % $k;
とすればOKです。
例えば５秒単位で変更するなら、事前に
　$n = 5;
としておきます。
localtime などで秒や分を取り出すのではなく、time の値を直接使うのがポイント。

ちなみに、@file には画像ファイルだけが入っている状態に加工してから処理すると、もっとラクできます。
※以下は readdir(DIR) ～ open(IMAGE, ...) まで

$k = @file = grep /\.(?:jpg|gif)$/, readdir(DIR);
closedir(DIR);
$a = int(time / $n) % $k;
open(IMAGE, "$imgdir$file[$a]");

補足

ご回答ありがとうございます！

以下のようにclosedir(DIR) ～ open(IMAGE, ...) の間をお教え頂いたソースに差し替えるだけでよいのでしょうか？

#!/usr/local/bin/perl

$imgdir="./rndimg/";

if(!opendir(DIR,$imgdir)){
print "Content-type: text/html\n\n";
print "Directory open error.\n";
exit(1);}
@file=readdir(DIR);
closedir(DIR);

$k = @file = grep /\.(?:jpg|gif)$/, readdir(DIR);
closedir(DIR);
$a = int(time / $n) % $k;
open(IMAGE, "$imgdir$file[$a]");

open(IMAGE, "$imgdir$file[$j-1]");
binmode(IMAGE);
$size=read(IMAGE,$image, -s IMAGE);
close(IMAGE);
if($f =~ /\.jpg$/){print "Content-type: image/jpeg\n\n";}
else {print "Content-type: image/gif\n\n";}
binmode(STDOUT);
print $image;
exit;

これで試したのですがうまく表示されません。
時間単位で変更させる値はどの位置に挿入すればよいでしょうか？

お手数おかけして申し訳ございません。初心者なもので具体的にソース表示の形にして教えて頂けますでしょうか？よろしくお願い致しますm(＿）m