Question

有没有办法在Perl 5.8.8 中将日期转换为纪元？

我知道有DateTime个模块，但 5.8.8不支持

Answer 1

您要转换的日期是什么样的？

Time :: Local :: timegm或Time :: Local :: timelocal或POSIX :: mktime都可以将年，月，日，小时，分钟，秒组合成一个纪元时间。

Answer 2

您可以使用作为核心模块的Time::Local模块来实现。

use Time::Local;
my $time = timelocal($sec,$min,$hours,$day,$month,$year);

如果您的日期为GMT或UTC，则只需将（timelocal）替换为timegm

Answer 3

为什么不尝试：

#!/usr/bin/perl
use strict;
use warnings;
my $time = time;
print $time

OR

use Date::Parse;
print str2time("02/25/2011 11:50AM");

OR

use POSIX;
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
# or for GMT formatted appropriately for your locale:
$now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime;
print str2time($now_string);

参考文献：
http://perldoc.perl.org/functions/localtime.html
http://www.epochconverter.com/programming/functions-perl.php

有没有办法在Perl 5.8之前将日期转换为纪元？

3 个答案: