如何在 Perl 中更改日期时间值的时区？

Question

使用此函数：

perl -e 'use Time::Local; print timelocal("00","00","00","01","01","2000"),"\n";'

它将返回一个纪元 - 但仅限于 GMT - 如果我想要 GMT+1 的结果（即系统本地时间（TZ）），我需要更改什么？

预先感谢，

安德斯

Answer 1

use DateTime;
my $dt   = DateTime->now;
$dt->set_time_zone( 'Europe/Madrid' );

Answer 2

epochtime 只有一种基于 UTC 的标准定义，并且不同时区没有不同的 epochtime。

如果您想找到 gmtime 和 localtime 之间的偏移，使用

use Time::Local;
@t = localtime(time);
$gmt_offset_in_seconds = timegm(@t) - timelocal(@t);

Answer 3

另一个基于 DateTime::Format::Strptime 的示例

use strict;
use warnings;
use v5.10;
use DateTime::Format::Strptime;

my $s = "2016-12-22T06:16:29.798Z";
my $p = DateTime::Format::Strptime->new(
  pattern => "%Y-%m-%dT%T.%NZ",
  time_zone => "UTC"
);

my $dt = $p->parse_datetime($s);    
$dt->set_time_zone("Europe/Berlin");
say join ' ', $dt->ymd, $dt->hms; # shows 2016-12-22 07:16:29

Answer 4

虽然 Time::Local 是一个合理的解决方案，但您最好使用更现代的 DateTime 面向对象模块。下面是一个示例：

use strict;
use DateTime;
my $dt = DateTime->now;
print $dt->epoch, "\n";

对于时区，您可以使用 DateTime::TimeZone 模块。

use strict;
use DateTime;
use DateTime::TimeZone;

my $dt = DateTime->now;
my $tz = DateTime::TimeZone->new(name => "local");

$dt->add(seconds => $tz->offset_for_datetime($dt));

print $dt->epoch, "\n";

CPAN 链接：

DateTime

Answer 5

您只需设置时区即可。尝试：

env TZ=UTC+1 perl -e 'use Time::Local; print timelocal("00","00","00","01","01","2000"),"\n";'

Answer 6

Time::Local::timelocal 是 localtime 的倒数。结果将采用您主机的当地时间：

$ perl -MTime::Local -le \
    'print scalar localtime timelocal "00","00","00","01","01","2000"'
Tue Feb  1 00:00:00 2000

您想要与该本地时间相对应的gmtime吗？

$ perl -MTime::Local' -le \
    'print scalar gmtime timelocal "00","00","00","01","01","2000"'
Mon Jan 31 23:00:00 2000

您是否想要相反的方式，即与 gmtime 相对应的 localtime ？

$ perl -MTime::Local -le \
    'print scalar localtime timegm "00","00","00","01","01","2000"'
Tue Feb  1 01:00:00 2000

Answer 7

算法

如果要将时间值从一个时区更改为另一个时区，则必须能够指示两个时区。

毕竟，如果您设置是否要将“12:30”转换为GMT或美国/东部或委内瑞拉时间，这意味着添加/减去一些小时或小时和分钟，您需要知道哪个时区是开始时间zone，否则，计算将不知道要加多少或减多少。

如果您使用DateTime->now;，时区默认为系统时间，这可能不是您想要转换的时区。

在下面的代码中，我演示了如何将日期时间对象初始化为正确的起始时区 (fromtimezone) 以及如何将该时间转换为结束时区 (totimezone)...

工作代码

I无法在线找到安装了 DateTime CPAN 模块的 Perl 沙箱。

use strict;
use DateTime;

sub convertTimeZonesForTime {
        my ($args) = @_;

        my $time = $args->{time};
        my $date = $args->{date};
        my $totimezone = $args->{totimezone};
        my $fromtimezone = $args->{fromtimezone};
        my $format = $args->{format} || '%H:%M:%S';

        my ($year, $month, $day) = map {int $_} split('-', $date);
        my ($hour, $minute, $second) = map {int $_} split(':', $time);

        $year ||= 1999 if !defined $year;
        $month ||= 1 if !defined $month;
        $day ||= 1 if !defined $day;
        $hour ||= 12 if !defined $hour;
        $minute ||= 30 if !defined $minute;
        $second ||= 0 if !defined $second;

        my $dt = DateTime->new(
                year=>$year,
                month=>$month,
                day=>$day,
                hour=>$hour,
                minute=>$minute,
                second=>$second,
                time_zone => $fromtimezone,
        );
        my $formatter = new DateTime::Format::Strptime(pattern => $format);
        $dt->set_formatter($formatter);
        $dt->set_time_zone($totimezone);

        return "$dt";
}

print(convertTimeZonesForTime({
    'totimezone'=>'America/Denver',
    'fromtimezone'=>'US/Eastern',
    'time'=>'12:30:00',
}));

输出：

10:30:00