如何在不安装任何额外软件包的情况下在 Perl 中获得以毫秒为单位的时间?
我正在运行 Linux。
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;