* Benchmarkモジュール [#uaf78f36]

** ある処理の測定 [#y9f9f8b0]
 use Benchmark;
 
 $t0 = new Benchmark;
 for (1 .. 1000){
     func($val);
 }
 $t1 = new Benchmark;
 $td = timediff($t1,$t0);
 print timestr($td),"\n";

** ある処理とある処理の比較 [#r6317320]
 use Benchmark;
 
 %codes;
 $codes{A} = q#
 func_A($val);
 #;
 $codes{B} = q#
 func_B($val);
 #;
 
 timethese(1000,\%codes);

**参考 [#v276958c]
http://www.att.or.jp/perl/man/benchmark.3pm.html


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS