perl - 如何从 localtime() 中提取时区

Question

我正在使用以下代码打印当前时间。

use Getopt::Long;
use Time::Local;
sub gettime
{
        my $t = time();
        my ($sec,$mn,$hr,$mday,$mon,$yr,@left, $dstr);

        ($sec,$mn,$hr,$mday,$mon,$yr,@left) = localtime($t);
        $yr  = $yr-100+2000;
        $mon += 1;
        $dstr = sprintf "%02d:%02d:%02d (%02d-%02d-%04d)", $hr, $mn, $sec, $mon,
 $mday, $yr;
        print $dstr;
}

gettime();

我可以使用 - local $ENV{TZ} = ":/usr/share/lib/zoneinfo/America/Los_Angeles"; 设置时区

如何从 localtime() 中提取时区？

Answer 1

你可以使用strftime()：

use POSIX;
$tz = strftime("%Z", localtime());

或者，计算 和 之间的localtime()差gmtime()。

Answer 2

您可以拥有时区以及与 UTC 的偏移量：

perl -MPOSIX -e 'print strftime "%Z (%z)\n",localtime'

Answer 3

$ perl -MPOSIX -le 'tzset; print for tzname'
CST
CDT

tzset()POSIX 模块中的函数和tzname()函数可以是一个容易记住的答案。