如何使用Perl确定机器设置的当前时区？

Question

我曾经假设它会如此简单$ENV{TZ},但TZ环境变量没有设置,但date命令仍然知道我在EDT中,所以必须有其他方法来确定时区(除了说chomp(my $tz = qx/date +%Z/);).

Answer 1

use POSIX;
print strftime("%Z", localtime()), "\n";

Answer 2

如果你想要比POSIX(但可能更慢)更便携的东西你可以使用DateTime :: TimeZone:

use DateTime::TimeZone;

print DateTime::TimeZone->new( name => 'local' )->name();

Answer 3

use POSIX;
localtime();
my ($std, $dst) = POSIX::tzname();

tzname()允许您访问POSIX全局tzname- 但您需要首先调用localtime()它.