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

Question

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

Answer 1

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

Answer 2

如果您想继续使用核心模块，请使用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