perl - 如何使用 Perl 将日期时间转换为 Unix 时间戳

Question

我有一个显示为的日期时间06 August 2012 21:02:00，需要使用 Perl 将其转换为 Unix 时间戳。

Answer 1

如果您想保留核心模块，请使用Time::Piece（在 Perl 5.10 上可用）：

use Time::Piece;
my $t = Time::Piece->strptime(shift,"%d %B %Y %H:%M:%S");
print $t->epoch, "\n";

./mypl "06 August 2012 21:02:00"
1344286920

Answer 2

use Date::Parse; 
print str2time('06 August 2012 21:02:00');