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

Question

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

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;'

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