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

DateTime :: Format :: 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