perl5で*日以上前かどうかを判定するには？

[上に] [前に] [次に]
ワイ 1999/08/10(火) 17:02:57
perl5のプログラムで、日付が"%4d/%2d/%2d"(年/月/日)の書式で入力されたとき、その日付が今日より*日以上前かどうかを判別する方法がうまいこと思いつきません。
何かうまい方法はないでしょうか。
ふじ 1999/08/10(火) 17:26:05
timelocal.pl を使って、
time - timelocal($sec,$min,$hours,$mday,$mon,$year);
として現在との時間差（秒）を求めて、それで判定すれば
いいんじゃないでしょうか。
＃ただし、日付は 1970年 〜 2038年 の間しか使えないですが。
ワイ 1999/08/10(火) 18:56:17
[[解決]]
うまく行きました。
ありがとうございます。
[上に] [前に] [次に]