追加のパッケージをインストールせずにPerlでミリ秒単位の時間を取得するにはどうすればよいですか?
私はLinuxを実行しています。
追加のパッケージをインストールせずに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;