フォルダ内の最新ログの取り出し方

質問

log(フォルダ)
┣200907.txt
┣200906.txt
┣200905.txt
┗num.txt

日記のログなのですが、logフォルダの中には上記のようなデータが有り、現在はファイルを開くとき下記のプログラムで開いています。

open(FILE, './log/200907.txt') or die "$!\n";
my @file = <FILE>;
close(FILE);

これを、新しい月の「200908.txt」が作成されたとき、自動的に「200907.txt」→「200908.txt」に更新する方法を教えていただけないでしょうか？

あと、この日記は記事毎にNo.が割り振られており「num.txt」には、最新ナンバー数字のみ記録されてます。

回答No.1

Tacosan · ベストアンサー

「自動的に更新する」と思うからいけないのであって, 「実行時に動的にファイル名を取得する」と思えばいい.
このファイル名形式がそのまま続くのであれば, 例えば
$logdir = "./log";
opendir(DIR, $logdir);
$latest = (sort { $b <=> $a; } grep { /^\d+\.txt$/; } readdir DIR)[0];
closedir(DIR);
open(FILE, "$logdir$latest");
なんかでできないか?

お礼

できました！

◆こちらのページの、この部分を参考にさせていただき
　　http://perl.misty.ne.jp/12.html
　　● 特定の種類のファイル名のみを取得
　　open DIR "temp";
　　@files = grep { /\.html$/ } readdir DIR; ← HTMLファイルのみ取得
　　close DIR;

◆下記のように変更
　　14　opendir(DIR, "./log/");
　　15　@file = grep { /\.txt$/ } readdir(DIR);
　　16　closedir(DIR);
　　17　foreach (@file) {
　　18　 print "$_\n";
　　19　}

　　*** 表示結果 ***
　　200805.txt 200906.txt 200907.txt num.txt

◆ sort { $b <=> $a; }を追加
　　15　@file = sort { $b <=> $a; } grep { /\.txt$/ } readdir(DIR);

　　*** 表示結果 ***
　　200907.txt 200906.txt 200805.txt num.txt

◆[0]を追加
　　17　foreach (@file[0]) {

　　*** 表示結果 ***
　　200907.txt

◆以下のように変更。無事、望みどおりの表示をしてくれました
　　14　opendir(DIR, "./log/");
　　15　@file = sort { $b <=> $a; } grep { /\.txt$/ } readdir(DIR);
　　16　closedir(DIR);
　　17　open(FILE, "./log/@file[0]");
　　18　my @file = <FILE>;
　　19　close(FILE);

◆最後に気がかりなのは「use strict;」を追加すると下記のエラーが出てしまいます。
　　Software error:
　　Global symbol "@file" requires explicit package name at C:\www\home\sfs4_diary\diary3.cgi line 14.
　　Global symbol "@file" requires explicit package name at C:\www\home\sfs4_diary\diary3.cgi line 16.
　　Execution of C:\www\home\sfs4_diary\diary3.cgi aborted due to compilation errors.

　　For help, please send mail to this site's webmaster, giving this error message and the time and date of the error.

こちらのについてはゆっくり考えたいと思います。
とりあえず解決いたしましたのでご報告にあがりました。

あなたのヒントが無ければできませんでした。
本当にありがとうございました。

補足

ご回答有り難うございます。
早速やってみたのですが、ログがない状態の物が表示されました。
でも、とてもヒントになりました！有り難うございます。

取りあえず
$latest = (sort { $b <=> $a; } grep { /^\d+\.txt$/; } readdir DIR)[0];
この部分が何をしているのか何となくしか分かっていないので、調べたいと思います。
もし自己解決できましたら、結果報告に来させていただきます。
この間お世話になったばかりですのに、再度相手にしてくださり本当に有り難うございます。