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