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

Question

很容易获得*秒（时间戳）在Perl：

time 

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

Answer 1

的Time::HiRes模块有时间下拉更换

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

可以read more in the perl FAQ

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：v5.8.4为构建需要修改SunOS（sun4-solaris-64int），oylenshpeegul's answer。