如何從本地時間提取時區（）

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(); 

我可以設置使用的時區 - 本地$ ENV {TZ} = 「：在/ usr /共享/ lib中/ zoneinfo區/美國/洛杉磯」;

如何從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()和tzname()來自POSIX模塊的功能可以是一個容易記住的答案。