はじめに 恥ずかしながら,パフォーマンスを意識したコードを書く,ということを今まであまりしてこなかったため,いい加減その辺意識を改めないと...と思うだけは思っている今日この頃. そんな背景もあり,思うところもあったので,Perlにおけるパフォーマンス測定ツールではメジャーっぽい Benchmark モジュールをちょこっとだけ使ってみました. Benchmark - benchmark running times of Perl code - search.cpan.org 使ってみた関数 今回は timethese関数や cmpthese関数を使ってみました. use Benchmark qw( :all ); my $results = timethese( $count, { name1 => sub { ... }, name2 => sub { ... }, } ); cmpth