2011-11-03 15 views
10

余分なパッケージをインストールせずにPerlで時間を何ミリ秒で得ることができますか?余分なパッケージをインストールせずに時間をミリ秒単位で取得しますか?

私はLinuxを使用しています。

+3

'日付+%N:

use Time::HiRes qw/ time sleep /; my $start = time; sleep rand(10)/3; my $end = time; print 'Slept for ', ($end - $start) , "\n"; 

それがないか、それが使用できない場合は、Konerakさんのコメントに構築するには、ネイティブのLinuxの使用は、バッククォートを経由してコマンド'あなたにナノ秒を与える...あなたはそこから作業することができますか? %sは1970年代にsinds秒を返します... – Konerak

+5

'Time :: HiRes'を使用できない理由は何ですか? – Polynomial

+3

モジュールをインストールできないのはなぜですか?それにかかわらず、あなたのPerlのバージョンに応じて、おそらくTime :: HiRes(http://perldoc.perl.org/Time/HiRes.html)が利用可能です。 –

答えて

22

Time::HiResは、Perl 5.7.3以降のコアの一部です。その可用性をチェックするには、Perlのバージョンperl -vを確認するか、コマンドラインからperl -e 'use Time::HiRes;'と一緒に使用してみてください。

使用例:

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

print time_since_epoch; 
+0

は' date +%s。%N 'でなければなりません – mob

+0

コマンドラインからモジュールをロードしたり、検証したりするには perl -MTime :: HiRes -e 1 の代わりに: perl -e 'use Time :: HiRes' – JRFerguson

+0

@mob:訂正ありがとうございます。 @James_R_Ferguson:質問者と構文を混同したくないので、私は故意に '-M'フラグを付けませんでした。(' ''の代わりに '1'を使って、ちょっと面白い小さなヒントです。 – Zaid

関連する問題