在 Perl 中获得 Epoch 毫秒的最佳方法是什么？答案

【问题标题】：What's the best way to get Epoch milliseconds in Perl?在 Perl 中获得 Epoch 毫秒的最佳方法是什么？
【发布时间】：2011-07-05 07:26:01
【问题描述】：

在 perl 中很容易得到 Epoch-Seconds（时间戳）：

time

但是毫秒是什么？最有效的方法似乎是 time*1000，但这并不像我想要的那样准确。除了长期记录的@perldoc 之外还有什么好的提示吗？

【问题讨论】：

【解决方案1】：

Time::HiRes 模块有一个插入式替换时间

$ perl -E 'say time'
1298827929
$ perl -MTime::HiRes=time -E 'say time'
1298827932.67446

perldoc -q "How can I measure time under a second"

【讨论】：

【解决方案2】：

一个真实的例子是：

use Time::HiRes qw(gettimeofday);
print gettimeofday;

【讨论】：

【解决方案3】：

perl -MTime::HiRes=time -e 'print time;'

对于为 SunOS (sun4-solaris-64int) 构建的 Perl: v5.8.4，需要修改 oylenshpeegul's answer。

【讨论】：