我正在使用以下代码打印当前时间。
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() 中提取时区?
最佳答案
你可以使用 strftime()
:
use POSIX;
$tz = strftime("%Z", localtime());
或者,计算 localtime()
和 gmtime()
之间的差异。
关于perl - 如何从 localtime() 中提取时区,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8482042/