perl - 如何计算perl中的日期差异

Question

我是 perl 脚本的新手。我有一个要求，我需要在分钟/秒内找到两个日期的差异

$date1 =  Fri Aug 30 10:53:38 2013
$date2 =  Fri Aug 30 02:12:25 2013

你能告诉我我们是如何实现这个的吗，解析，计算，模块 req 和所有

谢谢古瑟姆

Answer 1

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;

Answer 2

将两个日期都转换为 UNIX 时间

见http://metacpan.org/pod/Date::Parse

然后你可以做一个简单的数学减法来找到两者之间的秒数。

然后它是简单的数学一直得到分钟，小时等。