此格式的Perl日期

Question

我如何获得日期＆amp; 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

使用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 2

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 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