如何在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);