मैं वर्तमान टाइमज़ोन कैसे निर्धारित कर सकता हूं कि एक मशीन पर्ल के साथ सेट की गई है?

Question

मैंने माना था कि यह $ENV{TZ} जितना आसान होगा, लेकिन TZ पर्यावरण चर सेट नहीं है, और फिर भी date कमांड अभी भी जानता है कि मैं ईडीटी में हूं, इसलिए टाइमज़ोन निर्धारित करने का कोई अन्य तरीका होना चाहिए (chomp(my $tz = qx/date +%Z/); कहने के अलावा) । लेकिन आप localtime() कहा जाता है, यह पहली जगह में स्थापित किया जाना के लिए की जरूरत है -

Answer 1

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

Answer 2

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

tzname() आप POSIX वैश्विक tzname तक पहुँच देता है।

Answer 3

आप कुछ POSIX की तुलना में अधिक पोर्टेबल (लेकिन शायद बहुत धीमी) आप इस के लिए दिनांक समय :: समय क्षेत्र का उपयोग कर सकते हैं:

use DateTime::TimeZone; 

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

Answer 4

हो सकता है कि यह तेजी से:

my @lt = localtime(12*60*60); 
my @gt = gmtime(12*60*60); 
$tz = @lt[2] - @gt[2]; 
$tz_ = sprintf("%+03d:00", $tz); # for +02:00 format 

Answer 5

अगर तुम सिर्फ जरूरत है +05:30 (यूटीसी + 5.5/भारत समय) जैसे कुछ, आप निम्न कोड का उपयोग कर सकते हैं।

my @lt = localtime(); 
my @gt = gmtime(); 

my $hour_diff = $lt[2] - $gt[2]; 
my $min_diff = $lt[1] - $gt[1]; 

my $total_diff = $hour_diff * 60 + $min_diff; 
my $hour = int($total_diff/60); 
my $min = abs($total_diff - $hour * 60); 

print sprintf("%+03d:%02d", $hour, $min); 

यह उत्तर ऊपर पावेल के उत्तर से प्रेरित है।