如何在perl中获得时差？

Question

我有两个仅包含时间戳的字符串，看起来像这样 - my $t = "2014-11-28 00:00:00.000"; 我如何获得可读时间（天、小时、分钟、秒）而不是秒之间的时差。我是新手，我在做这件事时遇到了很大的困难。每篇博客或文章都在告诉我做不同的事情。有些事情无法完成，因为我没有模块。我什至无法将模块安装到 perl 中，因为我正在使用的计算机上有许多珍珠版本。所以， cpan > install some::modlue 没有帮助。

请教我如何做到这一点。 请尝试使用核心 perl。否则我将不得不花更多时间将 perl 模块安装到正确的 perl 中

我一开始就做了一些代码，但它错误且无用 -

use strict;
use warnings;
use Time::Local;

sub secondsToTime{

    my $inSeconds = shift;
    my $days = int($inSeconds/(24*60*60));
    my $hours = ($inSeconds/(60*60))%24;
    my $mins = ($inSeconds/60)%60;
    my $sec = $inSeconds%60;
    my $time = "$days days, $hours hours, $mins mins, $sec seconds";
    return $time;
}

# EXAMPLE timelocal( $sec, $min, $hour, $mday, $mon, $year );
my @today = localtime();
print "@today\n";
my $currentTime = timelocal(@today);

#my @t = (0, 00, 13, 28, 11, 2014);
#$currentTime = timelocal(@t);
my @birthday = (0, 00, 12, 28, 11, 2014); 
my $birthTime = timelocal(@birthday);
my $sec = ($currentTime - $birthTime);
my $time = secondsToTime($sec);

print "My age = $time\n";

Answer 1

您似乎不想帮助我们了解您需要什么。

此程序将打印2014-11-28T00:00:00.000Z 和2014-11-28T00:00:00.000Z 之间的差异。

use strict;
use warnings;

use Time::Piece;

my $start = '2014-11-28T00:00:00.000Z';
my $end   = '2014-11-28T00:00:00.000Z';

print difference($start, $end);

sub difference {
  my ($beg, $end) = map Time::Piece->strptime(s/\.\d*Z?\z//r, '%Y-%m-%dT%H:%M:%S'), @_;
  ($end-$beg)->pretty;
}

输出

0 seconds