我想了解测量 CGI Perl 代码在各个阶段的执行持续时间的技术(编码、库、配置):
- 启动 Perl 解释器
- 开始运行 Perl 代码
- 加载本地 Perl .pm 模块以用于例程
- 完成代码运行
我对 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 - 这里没有足够的信息
最佳答案
您可以使用 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。
关于perl - 我如何在执行的各个阶段进行 Perl CGI 性能测量、基准测试、时间测量?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4400058/