Perl 减去两个日期

Question

我是 Perl 的新手。 我正在尝试以这种格式减去两个日期

15.07.16 23:13:34
15.07.16 20:04:24

我知道我必须将此字符串转换为日期对象。我的问题是我仅限于基本的 perl 而没有安装额外的软件包。有办法吗？

我的版本是 v5.8.4，输出应该是03:09:10。

Answer 1

您说您使用的是 Perl 5.8.4。您确实需要更新它并获得安装 CPAN 模块的能力。

但是，这是一种只使用 5.8.4 中可用的核心 Perl 功能来做你想做的事情的方法。

#!/usr/bin/perl

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

my $date1 = '15.07.16 23:13:34';
my $date2 = '15.07.16 20:04:24';

my $diff = date2sec($date1) - date2sec($date2);

print secs2duration($diff);

sub date2sec {
  my ($date) = @_;

  my ($day, $mon, $yr, $hr, $min, $sec) = split(/[. :]/, $date);

  # I've assumed that your timestamps are in your local timezone,
  # so I've used timelocal() here. If your timestamps are actually
  # UTC, you should use timegm() instead.
  return timelocal($sec, $min, $hr, $day, $mon-1, 2000 + $yr);
}

sub secs2duration {
  my ($secs) = @_;

  my $hours = int($secs / (60*60));
  $secs %= (60*60);
  my $mins = int($secs / 60);
  $secs %= 60;

  return sprintf '%02d:%02d:%02d', $hours, $mins, $secs;
}