我试图在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
解决方法
原文地址:https://www.jb51.cc/Perl/171353.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。