perl - 如何将文本日期转换为时间戳？

Question

如何将日期转换为文本格式:

23.10.2011  11:35:00

到时间戳？

Answer 1

使用Time::Local ，你可以这样做:

use Time::Local;

my $date = '23.10.2011  11:35:00';
my ($mday,$mon,$year,$hour,$min,$sec) = split(/[\s.:]+/, $date);
my $time = timelocal($sec,$min,$hour,$mday,$mon-1,$year);
print $time,"\n",scalar localtime $time;

输出:

1319362500
Sun Oct 23 11:35:00 2011