localtime()での時間差の計算の仕方

質問

$ENV{'TZ'} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now =sprintf("%04d/%02d/%02d-%02d:%02d",$year+1900,$mon+1,$mday,$hour,$min);

とすると
2007/01/28-15:56
のようにデータとして取得できるのですが・・・
これと登録日（$date=2006/12/31-12:25）との日数差の計算ができません
$now-$date　とすると年数のところしか計算できず１としか表示できません

登録7日後以降にイベントを発生させたいのですが計算ができないのでうまくいきません
両方time()でやれば$now-$date>604800 とすればなんとかできるのですが登録日は『2006/12/31-12:25』の形で使いたいのです
登録日と現在の日数の差の計算方法を教えてくださいｍ（－－）ｍ

回答No.1

sakusaker7 · ベストアンサー

CGIのところじゃなくてPerlのとことで訊いたほうがよいと思いますが、
お使いのサーバでモジュールを使ってよいのなら、

Date::Simple あたりを使ってみるとか

use Date::Simple;

my $today = Date::Simple->new;
my $registerd_date = Date::Simple->new($year, $mon, $day);

if (registerd_date) {
my $distance = $today - registerd_date;
print "登録された日から $distance 日ですね\n";
} else {
print "登録日付がおかしくねっすか?\n"
}

んな感じで。
インストールなどの手順は参考URLで。

参考URL：

http://allabout.co.jp/internet/cgiperl/closeup/CU20040805A/index4.htm

お礼

回答ありがとうございます
勉強不足でまだまだ知らない手法が色々あるのですね
質問投稿した後、どうにか計算できないか色々やってみたところ・・・
$ENV{'TZ'} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
で得られる$now="50,33,15,1,0,107,0,27,0 485,197,854,";をそのまま登録日のデータとして残して

$ENV{'TZ'} = "JST-9";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date="50,33,15,26,4,107,0,27,0 485,197,854,";
foreach($date){ ($sc,$mi,$ho,$md,$mo,$ye,$wday0,$yday0,$isdst0)=split(/,/); }

if($year eq $ye and $mon eq $mo) { $time=$mday-$md;
}elsif($year eq $ye and $mon-$mo eq 1){ $time=$mday-$md;
if($mo eq 1){
if($year%4 eq 0){$time=$time+29; }
else{$time=$time+28;}
}elsif($mo eq 3 or $mo eq 5 or $mo eq 8 or $mo eq 10){$time=$time+30;
}else{$time=$time+31;
}
}elsif($year-$ye eq 1 and $mon eq 0 and $mo eq 11) { $time=$mday-$md+31;
}else{$time_hit=1; }

if($time >= 7) {$time_hit=1; }
if($time_hit eq 1) {print"7日以上です\n"; }
else{ print"7日以下です\n"; }

としたらちょっと面倒ですが何とかできました！！
ありがとうございましたｍ（－－）ｍ