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

Question

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

PS：如果仅使用内置函数即可完成此操作，而不需要任何外部模块，那就太好了。

---

结论：日期数学[在这里使用脏话]复杂且容易出错。 IRC、群组和网络其他部分上的其他 Perl 专家证实了 Ether 一直建议我的内容 - 使用 日期时间。 DVK 的解决方案对于那些不介意弄乱 perl 环境的人来说也非常简洁。 （注意：尽管在 Windows 上，Time::Piece 的警告部分文档说，“在 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');

Answer 2

您可以通过 TZ 环境变量控制本地时间返回哪个时区：

local $ENV{TZ} = ":/usr/share/lib/zoneinfo/Asia/Tokyo";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime(); 
print "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday\n"'
# Prints 40,58,4,12,0,111,3,11

local $ENV{TZ} = ":/usr/share/lib/zoneinfo/Europe/London";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime(); 
print "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday\n"'
# Prints 41,58,19,11,0,111,2,10

不幸的是，上面的路径在不同的 Unix 上有所不同（Solaris 上的 /usr/share/lib/zoneinfo，< Linux 上的代码>/usr/share/zoneinfo）。由于似乎没有其他变体，一个稍微可移植的版本将检查这两个目录中的哪一个存在并使用它 - 但这显然只适用于 Solaris 和 Linux，并且可能适用于其他 UNIX。不知道 Windows/MacOS/什么的。

TZ 的有效位置可以在这里找到：http://www.timezoneconverter.com/cgi- bin/tzref.tzc （但并非所有这些都一定在您的系统上可用 - 检查上面的目录）。

有关 TZ 数据库的更多信息，请参阅 http://en.wikipedia.org/wiki/Tz_database 。

Answer 3

您始终可以将时区的变化存储在哈希中，其中键是时区，值是对当前时间的调整。那么当您传递当前时间时，它应该返回该区域的当地时间。