Perl 使用time:：Local将time MILS转换为日期格式

是否可以使用

Time:：Local

或标准Perl发行版附带的另一个包，即不必使用包管理器（如

ppm

）单独添加的包，在Perl中转换自epoch以来的timi MILI？问题是，我在一个超级受限的网络环境中工作，我正在编写的脚本不保证通过繁琐的手续获得像

DateTime

或

Time:：HiRes

这样的外部服务

例如，我有类似于

1354996539

的milis，我想将其格式化为

2012-12-11 13:45:34

---

谢谢

Time:：Local的

timelocal

与您想要的正好相反（1354996539是输出，而不是输入）。它命名后的函数实际上就是您想要的函数

use POSIX qw( strftime );
say strftime('%Y-%m-%d %H:%M:%S', localtime(1354996539));

输出（针对美国/多伦多的人员）：

您也可以在不使用strftime的情况下执行此操作：

my @ts = localtime(1354996539);
$ts[4] += 1;
$ts[5] += 1900;
say sprintf('%d-%02d-%02d %02d:%02d:%02d', @ts[5,4,3,2,1,0]);

---

时间：本地的

timelocal

与您想要的正好相反（1354996539是输出，而不是输入）。它命名后的函数实际上就是您想要的函数

use POSIX qw( strftime );
say strftime('%Y-%m-%d %H:%M:%S', localtime(1354996539));

输出（针对美国/多伦多的人员）：

您也可以在不使用strftime的情况下执行此操作：

my @ts = localtime(1354996539);
$ts[4] += 1;
$ts[5] += 1900;
say sprintf('%d-%02d-%02d %02d:%02d:%02d', @ts[5,4,3,2,1,0]);

---

不是它影响问题的答案，而是

Time:：HiRes

也是核心。不是它影响问题的答案，而是

Time:：HiRes

也是核心。