在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。