perl - 我如何在执行的各个阶段进行 Perl CGI 性能测量、基准测试、时间测量？

Question

我想了解测量 CGI Perl 代码在各个阶段的执行持续时间的技术(编码、库、配置):

1. 启动 Perl 解释器
2. 开始运行 Perl 代码
3. 加载本地 Perl .pm 模块以用于例程
4. 完成代码运行

我对 3 和 4 特别感兴趣，我不相信我对 1) 或 2) 能做多少，因为我不想尝试优化 Perl 解释器，这是我唯一能做的事情这里是将硬件升级到更快的机器和/或使用 mod_perl 而不是经典的 CGI。

通过 3) 加载本地 Perl 模块，我想测量需要多长时间，但我不确定如何编码，因为我不知道(或不确定)如何在加载之前执行代码这些模块。如果我知道，那么我会记录它们加载前的时间，然后记录它们加载后的时间并计算差异。

4)应该是最容易获得的，因为我会在执行开始时和结束时记录时间(在变量中)。

我在 stackoverflow.com 上进行了搜索并发现:

• How can I speed up my Perl program? - 这是我期望在某个时候使用的。但我需要证明减少的时间(即速度的提高，所以我需要能够首先进行测量)。该工具http://search.cpan.org/dist/Devel-NYTProf看起来对于分析我的源代码很有用，但我不确定它是否涵盖了 3) 模块的加载
• Does Perl language aim at producing fast programs at runtime? - 更多的是冗长的讨论而不是简洁的答案，但稍后阅读时会很好

Google 搜索结果包括:

• http://www.testingreflections.com/node/view/3622 - 这里没有足够的信息

Answer 1

您可以使用 FastCGI 减少 1)。它也会减少阶段 2) 和 3)。

对于测量 3)，您可以使用 BEGIN block 。示例:

use Benchmark ':hireswallclock';
my ($t0,$t1);
BEGIN {$t0 = Benchmark->new;}
use DBIx::Class;
BEGIN {$t1 = Benchmark->new;}
print "the loading took:",timestr(timediff($t1, $t0)),"\n";

Deve::NYTProf 将帮助您完成 4)。还有一些特定的模块，如 Template::Timer、CGI::Application::Plugin::DevPopup::Timing、DBIx::Class::Storage::Statistics。