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

Question

在 Perl 中很容易获得纪元秒（时间戳）：

time

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

Answer 1

Time::HiRes 模块可以直接替代时间，

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

您可以在 Perl 常见问题解答中了解更多信息

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

Answer 2

一个现实世界的例子是：

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

Answer 3

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

对于为 SunOS 构建的 Perl：v5.8.4 (sun4-solaris-64int)，oylenshpeegul的答案需要修改。