perl - 如何在 perl 中将 1996-08-29T00:00:00.0000Z 日期格式更改为 17-May-2013

Question

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

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

需要帮助。非常感谢

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