フォルダ内の一番新しいファイルだけ表示。

質問

上記CGIを探しています。
やりたいことは単に日記帳のようなことなのですが、日記帳CGIでは、その表示方法が異なるため使用できませんでした。
したいことは、以下のことです。
iframeに毎月更新するデータを表示したいと思っています。
そこで、あるCGIを使って連番のhtmlファイルを吐き出させます。ファイルが出来た順に1.html,2.html～～という風に。(これは、ある日記帳CGIで出来ました)
それが1つのフォルダに保存されます。そのなかで、最新の(一番数が大きい)物のみを表示させるというCGIを探しています。(上記日記帳CGIはフレーム表示のためiframe内で使用出来ない・最新の物を最初からプレビュー表示が出来ない状態でした)

素人的に考えると、探すフォルダを指定して、***.htmlの中で一番大きい数字の物を探し表示させるだけという簡単な作業のように思えるのですが、いざ自分でそれを作れといわれても、どうすることも出来ません。
どなたかこのようなCGIをご存知ではないでしょうか?
よろしくお願いします。

回答No.2

ikspiari · ベストアンサー

補足です。

> if ( $file =~ /(\d)+\.html/ ) {

if ( $file =~ /^(\d)+\.html$/ ) {

の方がいいかも。
動作確認はしてませんので、ご了承ください。

お礼

早速の回答、ありがとうございます。
>動作確認はしてませんので、
思ったとおりの動作をしてくれました!全然問題無しです。
まさか、そのままを作っていただけるとは思っておらず、感謝感激です。

ありがとうございました。

回答No.1

ikspiari

#!/usr/bin/perl

$DIR = "./data/";

$new = 0;
opendir(DIR,$DIR);
while ( $file = readdir(DIR) ) {
if ( $file =~ /(\d)+\.html/ ) {
$new = $1 if ( $new < $1 );
}
}
closedir(DIR);

open(IN,"$DIR$new.html");
$src = join("",<IN>);
close(IN);

print "Content-Type: text/html\n\n";
print $src;
exit();

こんな感じでどうでしょうか？