我搜索了所有可能的问题,但找不到答案,因此Perl专家可以帮助我解决这个问题吗?
我有两个像05/25/2011 05:22:03 PM
和的时间戳05/25/2011 05:34:08 PM
。它们以字符串形式存储。
my $str1 = '05/25/2011 05:22:03';
my $str2 = '05/25/2011 05:34:08';
后者是工作结束的时间,前者是工作开始的时间。
如何找出日期和时间的差异?在这种情况下,日期是相同的,但也可能有所不同。
我建议您使用该Time::Piece
模块。自Perl 5 9.5版发布以来,它一直是核心模块,因此不需要安装。
此代码演示
use strict;
use warnings;
use Time::Piece;
my $str1 = 'Execution started at 05/25/2011 05:22:03 PM';
my $str2 = 'Execution completed at 05/25/2011 05:34:08 PM';
my @times = map Time::Piece->strptime(/(\d.+M)/, '%m/%d/%Y %H:%M:%S %p'), $str1, $str2;
my $delta = $times[1] - $times[0];
print $delta->pretty;
输出
12 minutes, 5 seconds
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句