我是perl脚本编写的新手。我有一个要求,我需要在分钟/秒中找到两个日期的差异
$date1 = Fri Aug 30 10:53:38 2013
$date2 = Fri Aug 30 02:12:25 2013
你能告诉我我们如何实现这一目标,解析,计算,模块需求和所有
由于 Goutham
答案 0 :(得分:15)
Time::Piece一直是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;
答案 1 :(得分:1)
将两个日期转换为UNIX时间
请参阅http://metacpan.org/pod/Date::Parse
然后你可以做一个简单的数学减法来找到两者之间的秒数。
然后一直是简单的数学计算,以获得分钟,小时等。