ファイルの作成日時を調べNEW!表示をつけるには・・・。

質問

指定したファイルの作成日時を調べて

1)もし、1週間以内に作成されていたら
　「NEW」と表示。

2)そうでなければ
　「OLD」と表示。

したいのですがどうすればよいのでしょうか？

perlはまだ始めたばかりなので初歩的な質問かも
知れませんがサンプルソースなどをお教えいただけると幸いです。

回答No.1

BLUEPIXY · ベストアンサー

use Time::Local;
$today=timelocal(localtime);#今日のエポック秒
$file="old.txt";
$timestamp=(stat($file))[9];#ファイルの最終更新のエポック秒
$mark=($today - $timestamp > 7*24*60*60) ? "OLD" : "NEW";#７日より前？
print $mark;