将日期转换为标准格式

Question

我们如何使用Perl将日期更改为标准格式？

例如，如果日期值为1/2/2015，那么我们需要将其转换为01/02/2015。

Answer 1

不需要模块来执行此操作 - 您只需将所有数字字段拉出并使用sprintf

重新格式化它们

该程序显示了一个程序，用于定义子程序standardise_date，该程序将采用格式错误的日期并重新格式化

use strict;
use warnings;

say standardise_date('1/2/2015');

sub standardise_date {
    sprintf "%02d/%02d/%04d", shift =~ /\d+/g;
}

输出

01/02/2015

Answer 2

使用Time::Piece解析日期。Refer here用于模式标记

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;

my $t = Time::Piece->strptime("1/2/2015",
                                "%m/%d/%Y");
print $t->strftime("%m/%d/%Y");