如何将1996-08-29T00:00:00.0000Z日期格式更改为2013年5月17日的perl

Question

可能重复:
格式化日期的简单方法

如何将"1996-08-29T00:00:00.0000Z"日期格式更改为2013年5月17日的perl

需要帮助.非常感谢你

Answer 1

use DateTime::Format::RFC3339 qw( );
my $format = DateTime::Format::RFC3339->new();
my $dt = $format->parse_datetime('1996-08-29T00:00:00.0000Z');
say $dt->strftime('%d-%b-%Y');  # 29-Aug-1996

日期时间::格式:: RFC3339

更轻的解决方案:

use POSIX qw( strftime );
my ($y, $m, $d) = '1996-08-29T00:00:00.0000Z' =~ /^(....)-(..)-(..)/s;
say strftime('%d-%b-%Y', 0,0,0, $d,$m-1,$y-1900);  # 29-Aug-1996