如何将 dd/MMM/yy hh:mm AM/PM 转换为 iCal 事件格式？

Question

我有一个采用以下格式的日期时间列表：

05/Jan/12 8:00 AM

日期始终为两位数，但小时可以为一位数或两位数。

我想将其转换为 iCal 格式：

20120105T080000Z

是否有模块可以执行此操作？

Answer 1

Time::Piece 核心模块就足够了：

#!/usr/bin/env perl
use strict;
use warnings;
use Time::Piece;
my $str = q(05/Jan/12 8:00 AM);
my $t = Time::Piece->strptime($str,"%d/%b/%y %I:%M %p");
print $t->datetime, "\n";

这假设您的当地时间，并将在输出中包含破折号：

2012-01-05T08:00:00

Answer 2

应该能够使用 DateTime::Format::Strptime 和 日期时间::格式::ICal。

此外，您的输出似乎采用 UTC/GMT（由尾随“Z”表示），但您的输入未指定时区。因此，作为解决方案的一部分，您需要指定应解释输入时间的时区。

另请参阅 http://datetime.perl.org/wiki/datetime/page/Modules