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

发布时间：2020-12-15 21:14:08 所属栏目：大数据来源：网络整理

导读：如何以文本格式转换日期： 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,$mo

如何以文本格式转换日期：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!