perl - Perlでエポックミリ秒を取得するための最良の方法は何ですか？

Question

perlでEpoch-Seconds（タイムスタンプ）を取得するのは簡単です。

time

しかし、ミリ秒とは何ですか？最も効果的な方法は時間*1000のようですが、それは私が望むほど正確ではありません。@perldocに記載されている長期的なものを除いて、何か良いヒントはありますか？

Answer 1

Time :: HiResモジュールには、時間の代わりとなるドロップインがあります

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

あなたはperlFAQでもっと読むことができます

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用に構築されたv5.8.4（sun4 - solaris-64int）、oylenshpeegulの答えを変更する必要があります。