我如何在执行的各个阶段进行 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 上进行了搜索，发现：

• 我该如何加速我的 Perl 程序？ - 这是我期望在某个时候使用的。但我需要证明减少的时间（即速度的提高，所以我需要能够首先进行测量）。该工具 http://search.cpan.org/dist/Devel-NYTProf 看起来对于分析我的源代码很有用，但我不确定它涵盖了 3) 模块的加载
• Perl 语言的目标是在运行时生成快速程序吗？ - 更多的是冗长的讨论而不是简洁的答案，但稍后当

Google 搜索结果包含时值得一读：

• 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，您可以将应用程序与具体的网络服务器后端分离。