linux - 在不安装额外包的情况下获取以毫秒为单位的时间？

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";

要基于 Konerak 的评论，如果它不存在或无法使用，请通过反引号使用 native Linux 命令:

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

print time_since_epoch;