[Perl]日期转时间戳

[PerlMonk]

代码： 全选

use Time::Local;

my $dt = "2016-11-21 09:09:00";
my @a  = split(/[^\d]/, $dt);

$a[1] -= 1;                        #月份 0~11
my $t1 = timelocal( reverse @a );
print "$t1";

这里09也没去掉开头的0，但最后结果仍是正确的。