Perlのプロファイラ Devel::DProf

シンプルなプロファイラ。標準モジュールなので、すぐに使える。

$ perl -d:DProf ./p.pl  ;; あるいはシェバング行に追加してもよい（#!/usr/local/bin/perl -d:DProf）

$ dprofpp
Total Elapsed Time =   0.0096 Seconds
  User+System Time =        0 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00       - -0.000      1        -      -  strict::import
 0.00       - -0.000      1        -      -  strict::bits
 0.00       - -0.000      1        -      -  warnings::BEGIN
 0.00       - -0.000      1        -      -  warnings::import
 0.00       - -0.000      2        -      -  main::BEGIN
 0.00       - -0.000     11        -      -  main::__ANON__
 0.00       - -0.000      7        -      -  main::pow3
 0.00       - -0.000     12        -      -  main::pow2
 0.00       - -0.000     64        -      -  main::pow

参考

Devel::DProf