[Perl]日期转时间戳
发表于 ： 2016年11月21日 09:16
代码： 全选
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";
代码： 全选
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";