我试图在Perl中对两个日期进行基本比较.当前日期时间和过去时间是正确的,但减法给出不正确的结果.差异应该是~24小时,但它返回~13小时.知道为什么以及如何解决它?谢谢.
use Time::Piece; my $Now = Time::Piece->new; my $then = Time::Piece->strptime("2014-04-14 16:30:20","%Y-%m-%d %H:%M:%s"); my $diff = $Now - $then; print "Current time: $Now\n"; print "Past time: $then\n"; print "Diff in Seconds:",$diff,"\n"; print "Pretty Diff:",$diff->pretty,"\n"; Results ------ Current time: Tue Apr 15 16:13:39 2014 Past time: Mon Apr 14 16:30:20 2014 Diff in Seconds:49399 Pretty Diff:13 hours,43 minutes,19 seconds