Benchmark

最終更新日時：2010-05-25 18:04:01
Perl

Benchmark

Benchmark を使うと、Perl スクリプトのベンチマークを簡単に行うことが出来ます。
サブルーチン単位でのベンチマークを行うので、複数種類のサブルーチンを作成すれば、それらを一括でベンチマークすることができます。

使用方法

以下、簡単な使用例です。

 use Benchmark;
 my $VAL = 1;
 timethese(10000000, { increment => \&test1_sub,
                       add       => \&test2_sub,
                     } );
 
 sub test1_sub {
    my $r = $VAL;
    $r ++
 }
 
 sub test2_sub {
    my $r = $VAL;
    $r = $r + 1;
 }

上記の実行結果は以下のような感じで出力されます。

 Benchmark: timing 10000000 iterations of add, increment...
        add:  7 wallclock secs ( 1.92 usr +  0.01 sys =  1.93 CPU) @ 5181347.15/s (n=10000000)
  increment:  3 wallclock secs ( 1.97 usr +  0.00 sys =  1.97 CPU) @ 5076142.13/s (n=10000000)

お問い合わせは掲示板にて。