Получите время в миллисекундах без установки дополнительного пакета?

Question

Как я могу получить время в миллисекундах в Perl без установки какого-либо дополнительного пакета?

Я использую Linux.

Answer 1

Time::HiRes является частью ядра с Perl 5.7.3.Чтобы проверить его доступность, проверьте версию Perl perl -v или попробуйте использовать ее с perl -e 'use Time::HiRes;' из командной строки.

Пример использования:

use Time::HiRes qw/ time sleep /;

my $start = time;
sleep rand(10)/3;
my $end   = time;

print 'Slept for ', ( $end - $start ) , "\n";

Чтобы опираться на комментарий Конерака, если его там нет или его нельзя использовать, используйте собственные команды Linux с помощью обратных галочек:

sub time_since_epoch { return `date +%s.%N` }

print time_since_epoch;