如何从 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";

How can I extract the timezone from 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 方法，无需使用外部模块：

sub get_timezone {

  # Get the current local time
  my @localtime = localtime();

  # Get the current GMT time
  my @gmtime = gmtime();

  # Calculate the time difference in hours
  my $timezone = ($localtime[2] - $gmtime[2]);

  # If the day is different, adjust the timezone
  if ($localtime[3] != $gmtime[3]) {
    if ($localtime[3] < $gmtime[3]) {
        $timezone += 24;
    } else {
        $timezone -= 24;
    }
  }

  return $timezone; # e.g. -3

} # /get_timezone

print "Timezone: GMT " . &get_timezone() . "\n";

Answer 4

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

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