如何计算perl中的日期差异
发布时间:2020-12-15 21:15:01 所属栏目:大数据 来源:网络整理
导读:我是perl脚本的新手.我有一个要求,我需要在分钟/秒中找到两个日期的差异 $date1 = Fri Aug 30 10:53:38 2013$date2 = Fri Aug 30 02:12:25 2013 你能告诉我我们如何实现这一点,解析,计算,模块需求和所有 谢谢 Goutham 解决方法 Time::Piece自2007年以来一直
我是perl脚本的新手.我有一个要求,我需要在分钟/秒中找到两个日期的差异
$date1 = Fri Aug 30 10:53:38 2013 $date2 = Fri Aug 30 02:12:25 2013 你能告诉我我们如何实现这一点,解析,计算,模块需求和所有 谢谢 解决方法
Time::Piece自2007年以来一直是Perl的标准组成部分.
#!/usr/bin/perl use strict; use warnings; use 5.010; use Time::Piece; my $date1 = 'Fri Aug 30 10:53:38 2013'; my $date2 = 'Fri Aug 30 02:12:25 2013'; my $format = '%a %b %d %H:%M:%S %Y'; my $diff = Time::Piece->strptime($date1,$format) - Time::Piece->strptime($date2,$format); say $diff; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |