perl - 是否有 perl 5.005 核心模块可以将纪元秒数转换为日期时间字符串？

Question

5.005 中是否有一个 perl 核心模块可以将纪元秒转换为可打印的日期时间？

我们的系统有 DateTime.pm，但需要该功能的脚本仍在 Perl 5.005 上，无法将其升级到 5.6+(不要问。只是因为非技术原因无法完成)。 DateTime.pm - 至少我们拥有的版本 - 需要 5.6。

因此我需要以下之一:

理想情况下，Perl 5.005 核心中的模块可以将纪元秒数转换为日期/时间字符串。最好是 YY/MM/DD hh:mm:ss 格式，但不是必需的。

如果做不到这一点，一个 5.005 兼容的非 XS 模块会将纪元秒转换为日期/时间字符串。最好是 YY/MM/DD hh:mm:ss 格式，但不是必需的。

强烈偏好在 Perl 5.005 发布时在 CPAN 上具有此功能的模块(这样看来，它可能在公司现有的一组 CPAN 模块中)

Answer 1

根据 CPAN，POSIX 模块可用。所以你可以使用 strftime 函数。这是我在 5.8.8 中一直使用的

use POSIX();
my $time_t = 1234567890;
my $txt = POSIX::strftime( "%Y-%m-%d %T", localtime($time_t) );
print "$txt\n";

给

2009-02-14 10:31:30