在Perl中將不同時區的時間轉換爲localtime？

Perl內置函數localtime可以將指定的日期時間值轉換爲本地時間，但它不接受時區編號。對不同時區進行這種轉換的最簡單方法是什麼？導入其他模塊看起來有點複雜，特別是對於單線程。在Perl中將不同時區的時間轉換爲localtime？

2015-08-15 Thomson

我使用的日期時間。

$ perl -MDateTime -E'say DateTime->now(time_zone => $ARGV[0])' America/Toronto 
2015-08-15T18:39:54 

$ perl -MDateTime -E'say DateTime->now(time_zone => $ARGV[0])' America/Halifax 
2015-08-15T19:39:55

來源

2015-08-15 22:40:18 ikegami

Localtime（）函數使用您的本地系統時區。您可以在使用TZ環境變量執行程序之前指定時區。

這裏是名爲time.pl與不TZ執行它的

#!/usr/bin/perl -w 

my $time = localtime; 
print $time;

輸出perl腳本是繼..

./time.pl 
Sun Aug 16 00:12:33 2015 

TZ=GST ./time.pl 
Sat Aug 15 18:42:36 2015

來源

2015-08-15 18:32:53

看來這是隻適用於類UNIX平臺。 – Thomson

確實..但我想在其他操作系統中也必須有一個env變量來更改時區。 –

'TZ'確實也影響Windows上的本地時間。只是不確定要傳遞給它的值。請注意，在更改'$ ENV {TZ}'後應該調用'POSIX :: tzset（）'。 – ikegami

Time::Piece將尊重TZ環境變量。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

use Time::Piece; 

say scalar localtime->strftime('%F %T %Z'); 

foreach ('UTC', 'Europe/Paris', 'America/New_York') { 
    $ENV{TZ} = $_; 
    say scalar localtime->strftime('%F %T %Z'); 
}

輸出（當在倫敦運行）：

2015-08-17 09:46:53 BST 
2015-08-17 08:46:53 UTC 
2015-08-17 10:46:53 CEST 
2015-08-17 04:46:53 EDT

來源

2015-08-17 08:47:34

這是OP已經拒絕的答案的更長版本。 Windows肯定不知道「歐洲/巴黎」。 – ikegami

另外，你應該在改變'$ ENV {TZ}'後調用'POSIX :: tzset（）'。 – ikegami

在Perl中將不同時區的時間轉換爲localtime？

回答

相關問題