11

追加のパッケージをインストールせずにPerlでミリ秒単位の時間を取得するにはどうすればよいですか?

私はLinuxを実行しています。

4

1 に答える 1

22

Time::HiResPerl 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;
于 2011-11-03T16:32:30.127 に答える