Perl：如何将 unix 时间戳+时区转换为本地时间答案

【问题标题】：Perl: How to convert a unix timestamp+timezone into local timePerl：如何将 unix 时间戳+时区转换为本地时间
【发布时间】：2011-07-15 14:08:45
【问题描述】：

基本问题在标题中：我有一个 unix 时间戳和一个时区，例如“America/Caracas”，我想将其转换为时区的当地时间。

通过stackoverflow搜索，我找到了其他人asking pretty much the same question，但是，提供的答案代码

$t = new DateTime();
$t->setTimestamp( $time=time() );
$t->setTimeZone(new DateTimeZone("America/Denver"));
print $t->format(DateTime::RFC850);

不起作用（不再起作用？）。 DateTime() 不允许我设置时间戳；我确实查看了 DateTime 源，但也没有看到我可以在哪里连接我自己的时间戳。有什么想法/帮助吗？

非常感谢！

【问题讨论】：

【解决方案1】：

use DateTime;

my $dt = DateTime->from_epoch(
    epoch     => time(), 
    time_zone => "America/Denver"
);
print "$dt\n";

有关详细信息，请参阅DateTime 文档。

【讨论】：

【解决方案2】：

试试：

my $epoch = time;
warn $epoch;
my $dt = DateTime->from_epoch( epoch => $epoch );
warn $dt->year;
#and so on

【讨论】：