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

Question

使用此功能:

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

它将返回一个纪元时间 - 但仅在格林威治标准时间 - 如果我想要格林威治标准时间 + 1(这是系统本地时间(TZ))的结果，我需要更改什么？

提前致谢，

安德斯

Answer 1

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