我已经搜寻了几个小时,想找一个将dd/mm/yyyy格式转换为Epoch时间的公式,但未能找到解决方案。
我现在有两个日期,分别以不同的格式表示,如下所示:“08011985”和“09302014”。我必须将它们转换为Epoch时间,以获取最早日期和最晚日期之间的差异,并根据范围的大小执行某些操作。
我无法安装任何模块,并且使用的是5.8.8版本。
我已经搜寻了几个小时,想找一个将dd/mm/yyyy格式转换为Epoch时间的公式,但未能找到解决方案。
我现在有两个日期,分别以不同的格式表示,如下所示:“08011985”和“09302014”。我必须将它们转换为Epoch时间,以获取最早日期和最晚日期之间的差异,并根据范围的大小执行某些操作。
我无法安装任何模块,并且使用的是5.8.8版本。
Time::Local
模块的示例,该模块一直是 Perl 5 的核心组件。use strict;
use warnings;
use Time::Local qw/ timelocal /;
for my $date ( qw/ 08011985 09302014 / ) {
print epoch_for_mmddyyyy($date), "\n";
}
sub epoch_for_mmddyyyy {
my ($m, $d, $y) = unpack 'A2A2A4', shift;
timelocal(0, 0, 0, $d, $m-1, $y);
}
输出
491698800
1412031600