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

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

Я запускаю Linux.

Ответ 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";

Чтобы построить комментарий Konerak, если его нет или он не может быть использован, используйте собственные команды Linux через обратные ссылки:

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

print time_since_epoch;