如何在执行的各个阶段进行 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? - 更多的是冗长的讨论而不是简洁的答案，但以后有时间读一读

包括谷歌搜索结果：

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

Answer 1

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

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

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。

Answer 2

除了FastCGI，还有mod_perl，更重要的是PSGI。使用 PSGI，您可以将您的应用与具体的 Web 服务器后端分离。