Perl的DateTime模块返回纳秒始终为0，如何正确获取纳秒值？

问题根因 #

你运行代码返回纳秒为0的核心原因是：Perl内置的time函数仅返回整数精度的秒级时间戳，不存在亚秒部分，用该值构造的DateTime对象纳秒位会默认补0，和nanosecond方法、strftime格式化符本身无关。

解决方案 #

方案1：使用DateTime::HiRes模块（最简便） #

安装DateTime::HiRes扩展模块后，直接调用它的构造方法即可自动获取带纳秒精度的时间对象：

use DateTime::HiRes;
# 直接获取当前高精度时间
say DateTime::HiRes->now()->nanosecond;
say DateTime::HiRes->now()->strftime('%9N');

方案2：结合Time::HiRes构造 #

如果不想额外安装DateTime扩展，也可以用Time::HiRes提供的高精度time函数（返回浮点型时间戳，包含亚秒部分），传入原生DateTime的from_epoch方法即可：

use DateTime;
use Time::HiRes qw(time); # 覆盖内置的秒级time函数
say DateTime->from_epoch(epoch => time)->nanosecond;
say DateTime->from_epoch(epoch => time)->strftime('%9N');

补充说明 #

• DateTime的from_epoch原生支持浮点型epoch参数，会自动将小数部分转换为纳秒存储，无需额外处理。
• 纳秒精度读取需要操作系统支持高精度时钟，现代主流的服务器、桌面操作系统均满足该要求。

内容的提问来源于stack exchange，提问作者Unknown.Vagrant