Perl日期功能/模块能够理解完整的非缩写月份

Question

假设我从包含日期的某处读取了一个字符串，并且它的日期格式不缩写月份。 是否有一个模块可以处理读入的内容，然后将其输出为我选择的任何格式？ 我快速浏览了CPAN，我查看的每个日期模块似乎都没有容纳一个简短的月份。

谢谢你的帮助

编辑：例如，说我们有一个像这样的字符串； “ 1988年2月2日”。 现在我们要将其转换为“ 1988-02-02”（YYYY-MM-DD）。

Answer 1

您可以利用核心的Time :: Piece模块及其strptime方法。 格式在strftime手册页上进行了说明 ，有关完整月份的名称，有%B格式说明符：

use Time::Piece;
my $dt = Time::Piece->strptime("2 February 1988", "%d %B %Y");
print $dt->ymd,"\n";

Answer 2

使用DateTimeX::Easy ：

程序

my $dt = DateTimeX::Easy->new('2 February 1988');
print $dt->date();

输出量

1988-02-02

Answer 3

我一直使用Date :: Parse，因为它可以自动检测输入格式，并使用“ str2time”将其转换为unix时间。 如果要格式化日期，则使用“ strftime”。

use Date::Parse;
use POSIX 'strftime';

$unix_time = str2time "2 February 1988";
print strftime "%Y-%m-%d", localtime $unix_time;

Answer 4

您应该编写自己的转换模块。

您可以使用哈希来进行如下快速转换：

我的％month =（“ Jan” =>“ 01”，“ Feb” =>“ 02”，“ Mar” =>“ 03”，“ Apr” =>“ 04”，“ May” =>“ 05”， “ Jun” =>“ 06”，“ Jul” =>“ 07”，“ Aug” =>“ 08”，“ Sep” =>“ 09”，“ Oct” =>“ 10”，“ Nov” => “ 11”，“ Dec” =>“ 12”）；

我的％day =（“ Sun” =>“ 01”，“ Mon” =>“ 02”，“ Tue” =>“ 03”，“ Wen” =>“ 04”，“ Thu” =>“ 05”， “ Fri” =>“ 06”，“ Sat” =>“ 07”）；