更改日期格式

Question

如何更改日期12/23/02到23/12/2002或03/35/55到35/03/2055的格式？

我可以从文本文件中读取日期，但我无法更改其格式：

15/06/17 ====＆gt; 06/15/2017

Answer 1

以下是使用DateTime::Format::Strptime的示例：

<强>更新

use DateTime::Format::Strptime;
my $str = '12/23/02';
my $parser = DateTime::Format::Strptime->new( pattern => '%m/%d/%y');
my $dt = $parser->parse_datetime( $str );
print $dt->strftime('%d/%m/%Y')

输出：

23/12/2002

Answer 2

我认为Perl模块 Time :: Piece 应该可以工作

use Time::Piece 'strptime';
my %date = strptime('%d/%m/%y', '15/06/17');

日期哈希包含已解析的日期元素，$ date {d}，$ date {m}和$ date {y}，您可以使用它们重新格式化日期。