我正在运行Linux。
自从Perl 5.7.3以来, Time::HiRes
一直是核心的一部分。 要检查它的可用性,请检查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;