在Perl中减去两个日期字符串，转换为unix时间并还原

Posted 2021-04-02

我想在Perl中减去两个时间戳。我通过下面的函数将它们转换为unix-time，并将unix时间戳转换回原来的状态。在下面的例子中，结果是01:20:00而不是00:20:00（我认为它与unix时间戳1.1.1970 01:00:00的开始有关但不确定如何解决它）

任何的想法？非常感谢您的帮助。

use POSIX       qw( strftime );
use Time::Local qw( timelocal );

sub to_epoch {
    $_ = shift;
    my @a = split /\W+/, $_;

    my $b = timelocal($a[5],$a[4],$a[3],$a[2],$a[1],$a[0]);
    return $b;
}

my $h_end   = "2018.11.12 00:50:00";
my $h_start = "2018.11.12 00:30:00";
my $duration = to_epoch($h_end) - to_epoch($h_start);
my $convert_back = POSIX::strftime("%H:%M:%S", localtime($duration));
print $convert_back , "\n";

输出：01：20：00

答案

这个对我有用。但我认为那是因为我在GMT并且你在CET（GMT + 1）。

这个缺陷是你的最后一步。你混淆了两个概念 - 一个时间点和一个持续时间。

您正确地将您的两个时间点转换为Unix纪元数字，然后您减去这些数字以获得它们之间的秒数。这个数字是一个持续时间。并且您希望将该持续时间转换为人类可读的格式。使用localtime()和POSIX::strtime()不是这样做的方法。 POSIX::strftime()和localtime()处理时间点，而不是持续时间。

你得到的数字是1,200。通过传递给localtime()，你说的是“当我在当地时区转换为日期和时间时，时代数是1,200？” 1,200是格林尼治标准时间1970年1月1日午夜20点。但在您当地的法兰克福时区，凌晨1点20分。这就是为什么你得到1:20而我得到0:20。

有几种方法可以解决这个问题。您可以手动进行转换。

my $duration = 1_200;

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

或者您可以使用正确的日期/时间处理模块，如DateTime（及其相关模块DateTime::Duration）。

如果你使用timegm()和gmtime()代替timelocal()和localtime()它可能会有效 - 但我真的不推荐这种方法，因为它使时间点和持续时间点之间的混淆永久化。

更新：使用DateTime的版本。

#/usr/bin/perl

use strict;
use warnings;

use DateTime;
use DateTime::Format::Strptime;

my $h_end   = '2018.11.12 00:50:00';
my $h_start = '2018.11.12 00:30:00';

my $date_p = DateTime::Format::Strptime->new(
  pattern => '%Y.%m.%d %H:%M:%S'
);

my $duration = $date_p->parse_datetime($h_end)
             - $date_p->parse_datetime($h_start);

printf '%02d:%02d:%02d', $duration->in_units('hours', 'minutes', 'seconds');

另一答案

1200，$duration的值，在被视为纪元时间戳时表示以下内容

1970-01-01T01:20:00+01:00
           ^^^^^^^^

解决方案是更换

strftime("%H:%M:%S", localtime($duration));

同

strftime("%H:%M:%S", gmtime($duration));

这给了

1970-01-01T00:20:00Z
           ^^^^^^^^

当然，这仍然是一个黑客。你不应该把持续时间传递给qazxsw poi。请改用相应的模块。

gmtime

---

顺便说说，

use DateTime::Format::Strptime qw( );

my $format = DateTime::Format::Strptime->new(
   pattern => '%Y.%m.%d %H:%M:%S',
   on_error => 'croak',
);

my $h_end   = $format->parse_datetime('2018.11.12 00:50:00');
my $h_start = $format->parse_datetime('2018.11.12 00:30:00');

my $dur = $h_end - $h_start;
printf "%02d:%02d:%02d\n", $dur->in_units(qw( hours minutes seconds ));

应该

timelocal($a[5],$a[4],$a[3],$a[2],$a[1],$a[0])