Какой лучший способ получить эпоху миллисекунд в Perl?

Question

Легко получить Epoch-Seconds (метку времени) в perl:

time

Но что с миллисекундами? Кажется, самый эффективный способ - время * 1000, но это не так точно, как хотелось бы. Любые хорошие советы, за исключением задокументированных долгосрочных @perldoc?

Answer 1

Модуль Time :: HiRes имеет замену времени

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

Вы можете подробнее в FAQ 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: v5.8.4 построен для SunOS (sun4-solaris-64int), Ответ oylenshpeegul необходимо изменить.