Perl 将日期转换为标准格式

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

例如，如果日期值为2015年1月2日，则需要将其转换为2015年1月2日。

用于解析日期。用于模式标记

#!/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");

---

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

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

use strict;
use warnings;

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

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

输出

---

2015年2月1日没有任何标准。你需要更好地解释你的问题。描述场景。这个日期字符串来自哪里？那是天/月/年还是月/日/年？输入格式是否始终相同？您还有什么可以帮助我们的吗？这里的日期是2015年1月2日，以m/d/yyyy为单位，我们需要将其转换为标准模式mm/dd/yyyy。好的，这很有帮助。但是，您的输入是否总是m/d/y，并且您希望将月份和日期填充为零，直到两个字符？首先，StackOverflow不是为您编写代码的。您应该向我们展示您尝试过的代码。其次，你需要更好地定义你的问题。你的问题很模糊。第三，转换日期和时间格式是堆栈溢出最常见的问题之一。在发布问题之前，您是否努力搜索过网站？哪种标准？在国际标准ISO 8601中，日期必须采用YYYY-MM-DD格式。您在此处引用的是一个完全不同模块的文档。它在一个特定的版本上使用search.cpan.org。试试看

01/02/2015