日付で判定する処理

質問

あまりよくわかっていないので恐縮ですが，掲示板のような処理で入力は日付と文章のみです．
入力の文字列の日付は，今日だと「2005/02/14」と入れ，文章は「こんにちは」としたとするとこの２つがテキストファイルに「,カンマ区切りで」書き込まれます．それをhtmlで表示させているようです．
やりたい処理は１週間前の日付だったら文章の文字列を赤色で表示するということをしたいのです．
比較結果で赤文字列にする処理はわかったのですが判定の部分で悩んでおります．
判定する際，思いついたのが入力してある文字列がたとえば「2005/02/14」の形式なのでこの値と今日の日付とを比較して７日前だったら文章を赤文字にしたいのですが，普通はどのような比較をするのでしょうか？
私が考えたのは，ファイルに書き込まれている「2005/02/14」を読み込み「/」をなくして「20050214」にし数字形式にすることで，今日の日付も，「20050214」の形式として７日を引けば負の時は何もせず正の時は文章を赤文字で表示させればと考えたのですが，ファイルから読み込んだ「2005/02/14」から「/」を無くす方法や今日の日付を取得した結果は文字列の形式みたいなので計算にはつかえないようです．
実はもっと簡単な方法があるのではないかと悩んでいたりしています．どなたかご教授お願いいたします．

回答No.1

hikomin · ベストアンサー

2005/02/14から/を抜くのは、例えば正規表現なら、

my $date = '2005/02/14';

こんな風に変数に入っているとすれば、

$date =~ s{/}{}g;

とかで引けます。

また、今日の日付は、例えば

my ($y,$m,$d) = (localtime time)[5,4,3]
my $today = sprintf "%04d%02%%02d", $y+1900, $m+1, $d;

とすれば、yyyymmddの形式になります。（一行目でローカル時間の配列から年・月・日のデータだけ取り出して、２行目で整形）

ただ、問題は月の変わり目なんかがあるので単純に７を引く程度では駄目な時があると言うことです。データにはエポック秒のまま記録しておき、表示の際に変換するとかが一般的と思いますが、整形された形からエポック秒を取り出す事も出来ます。これにはTime::Localモジュールを用い、

use Time::Local;
my $date = '2005/02/14';
my ($y, $m, $d) = split m{/}, $date;
my $epoc = timelocal(0, 0, 0, $d, $m-1, $y);
# timelocalの引数は左からsec, min, hour, day, month, year

とすればエポック秒を得られますので、７日であればこの数値から7*24*60*60を差し引きして比べると楽でしょう。

お礼

ありがとうございました．
大変参考になりました．