実行時間計測(Perlメモ)
実行時間を計測する必要性が出てきたのでメモ。
Time::HiResモジュールを使います。
"I Love Perl Because I Love Perl"
プログラム
!/usr/bin/perl use strict; use warnings; use Time::HiRes qw(usleep ualarm gettimeofday tv_interval); &main(); exit(0); sub main { my $t0 = [gettimeofday]; usleep 5_000_000; my $t1 = [gettimeofday]; my $execTime = tv_interval($t0, $t1); print "実行時間:", $execTime,"\n"; }
出力
実行時間:5.005696
参考文献
モジュール
Time::HiRes(CPAN)
Time::HiRes(perldoc.jp)
これを使った他のやり方
perlでミリ秒単位の処理時間を計測する
関連
Perl関連のブログで出ていたのでメモ。
Benchmark(CPAN)
Benchmark(perldoc.jp)
今日やったこと
- 研究関連
その他
Basic認証についていつ書くんだよおれ。