代码: 全选
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";
正浏览此版面之用户: 没有注册用户 和 7 访客