perl – 如何将文本日期转换为时间戳?

前端之家收集整理的这篇文章主要介绍了perl – 如何将文本日期转换为时间戳?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如何以文本格式转换日期:
23.10.2011  11:35:00

到时间戳?

解决方法

使用 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,$mday,$mon-1,$year);
print $time,"\n",scalar localtime $time;

输出

1319362500
Sun Oct 23 11:35:00 2011

猜你在找的Perl相关文章