如何使用UTC偏移获得Perl的本地时间？

Question

如果我有位置,我知道如何使用时区转换获取当地时间:

my $localTime = DateTime->now( time_zone => 'America/New_York' );

但我目前只有UTC TimeZone号码,例如:

my $UTCzone = 5;
my $UTCzone = -2;
etc.

在这种情况下如何转换？

Answer 1

DateTime->now( time_zone => '+0500' );

perldoc DateTime 说

time_zone参数可以是标量或DateTime :: TimeZone对象.字符串将简单地作为其"name"参数传递给DateTime :: TimeZone-> new方法.该字符串可以是Olson DB时区名称("America/Chicago"),偏移字符串("+ 0630"),