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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在Perl中减去两个日期字符串,转换为unix时间并还原相关的知识,希望对你有一定的参考价值。

我想在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])

以上是关于在Perl中减去两个日期字符串,转换为unix时间并还原的主要内容,如果未能解决你的问题,请参考以下文章

Perl 将本地时间转换为 unix(纪元)时间

将记录的日期时间转换为 UNIX 纪元时间戳的 Perl 脚本

hive时间差

如何在unix bash shell中减去或添加两个特定的日期和时间[复制]

如何使用 Perl 将纪元时间转换为 UTC 时间?

如何从当前日期中减去一天然后在 Hive 中转换为字符串