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』の形で使いたいのです
登録日と現在の日数の差の計算方法を教えてくださいｍ（－－）ｍ
