Получите время в миллисекундах без установки дополнительного пакета?
Как я могу получить время в миллисекундах в 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;