perl - 确定另一个时区的本地时间

Question

如何使用在美国服务器上执行的 PERL 脚本确定各个国家/地区的当前日期和时间？例如，getDTnow() 应该确定服务器上的当前日期和时间，并使用它来返回各个国家/地区的日期和时间。

P.S:如果这可以只使用内置函数来完成，而无需任何外部模块，那就太好了。

---

结论:日期数学[在此处使用脏话]复杂且容易出错。 IRC 上的其他 perl 专家、群组和网络的其他部分证实了 Ether 一直在建议我 - 使用 DateTime . DVK 的解决方案对于那些不介意弄乱 perl 环境的人来说也非常巧妙。 (注意:虽然在 Windows 上，Time::Piece docs 的注意事项部分说在“在 Win32 上的线程中设置 $ENV{TZ}”时应该小心。

Answer 1

DateTime是一个很棒的库，可以使用标准时区来做你想做的一切，甚至更多:

use DateTime;

# returns local time in Italy
my $dt = DateTime->now(time_zone => 'Europe/Rome');

# prints time in desired format
print "The current date and time in Italy is: ", $dt->strftime('%Y-%m-%d %T');