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

Question

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

PS:如果只使用内置函数,没有任何外部模块,那将是很好的.

---

结论:日期数学是[使用脏话这里]复杂,容易出错.IRC上的其他perl专家,小组和网络的其他部分证实了以太一直在建议我 - 使用DateTime.DVK的解决方案也非常适合那些不介意搞乱perl环境的人.(注意:虽然在Windows上,Time :: Piece文档的警告部分说当在Win32上的Threads中设置$ 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');