perl - 在 Perl 中将时区名称转换为 GMT 时区偏移量？

Question

我有一个 timzeone 名称作为输入，例如 'Europe/Istanbul' 作为字符串。
如何获取 GMT 的当前偏移量(基于当前时间)，即 +2 作为输出？
PS，我用的是DateTime::TimeZone如果这可能有帮助

Answer 1

您可以使用 DateTime::TimeZone 的 offset_for_datetime 获取当前偏移量方法或 DateTime 的 offset方法。需要 DateTime 对象，因为偏移量可能会因日期时间而异(主要是因为夏令时)。

my $tz_name = 'Europe/Istanbul';

my $dt = DateTime->now( time_zone => $tz_name );
for (1..2) {
    my $offset = $dt->offset;
    printf("Offset for %s in %s is %+g\n", $dt->iso8601, $tz_name, $offset / 60 / 60);
    $dt->add( months => 6 );
}

输出:

Offset for 2015-02-18T18:20:30 in Europe/Istanbul is +2
Offset for 2015-08-18T18:20:30 in Europe/Istanbul is +3