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

Question

在perl中获取Epoch-Seconds(时间戳)很容易:

time

但是什么是毫秒？最有效的方式似乎是时间*1000,但这并不像我希望的那样准确.除了记录@perldoc的长期条款之外,还有什么好的提示吗？

Answer 1

该时间::高分辨率模块有一个下拉更换时间

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

您可以在perl FAQ中阅读更多内容

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

Answer 2

一个真实世界的例子是：

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