這種格式的Perl日期

Question

如何在perl中獲得此格式的日期&時間？ Y-m-d\TH:i:s\Z T代表時間部分，Z代表時區。

例如，2012-11-28T17:21:11+0100

我想在PHP中可以使用gmdate("Y-m-d\TH:i:s\Z")

Answer 1

TIMTOWTDI

使用POSIX的strftime

use strict; 
use warnings; 
use 5.010; 
use POSIX qw/ strftime /; 

say strftime("%Y-%m-%dT%T%z", localtime); 

一個內膽：

perl -MPOSIX -E 'say strftime("%Y-%m-%dT%T%z", localtime);' 

輸出：

2014-09-05T20:11:34-0400 

Answer 2

使用Time::Piece做：

use strict; 
use warnings; 

use Time::Piece; 

print localtime->strftime('%Y-%m-%dT%H:%M:%S%z'), "\n"; 

輸出：

2014-09-05T16:39:54-0700 

Answer 3

可能的解決方案之一：

use 5.010; 
use warnings; 
use Time::Piece; 
say localtime->strftime("%Y-%m-%dT%T%z"); 

或oneliner

perl -MTime::Piece -E 'say localtime->strftime("%Y-%m-%dT%T%z");' 

打印

2014-09-06T01:36:39+0200