[PerlChina] CN Perl Advent Day 11: NYTProf

http://perlchina.org/advent/2009/NYTProf.html

=for advent_year 2009

=for advent_day 11

=for advent_title Devel::NYTProf

=for advent_author Fayland Lam

当您有个程序运行得特别慢而无法找到为什么的时候，Profile 当是第一选择（Profile 应当永远在优化之前）。而在 CPAN 众多
Profile 模块中，A<Devel::NYTProf> 当属第一。

比如你有一个简单的 pl 文件

=begin code

use strict;
use warnings;
use List::Util qw/shuffle/;

my @list = (1 .. 1000000);
@list = shuffle @list;
@list = splice(@list, 0, 300);

my @listB;
while (scalar @listB < 300) {
my $value = int(rand(1000000));
unless ( grep { $_ == $value } @listB ) {
push @listB, $value;
}
}

=end code

运行如下

=begin pre

$ perl -d:NYTProf t.pl
$ nytprofhtml

=end pre

然后你就可以打开 nytprof/index.html 了

<img src='NYTProf1.jpg' />

如果点 t.pl 左边的 line, 你能清楚地看到哪一行是比较慢的。

<img src='NYTProf2.jpg' />

如上脚本只是为了简单介绍，实际中的应该比这复杂多了。但是方法还是一样的。

Devel::NYTProf 不仅仅可以对一个 pl 脚本，还可以在 mod_perl 下测试 web 脚本。比如我们的 Catalyst
脚本，只要在 httpd.conf 里设置

=begin pre

PerlSetEnv NYTPROF file=/root/nytprof.out
PerlModule Devel::NYTProf::Apache

=end pre

然后重启 Apache, 访问一些网站地址，然后 stop Apache. 在 /root/nytprof.out*
中选取一个文件，然后运行 nytprofhtml -f nytprof.out.XX 即可。

更多更详尽的请参考 M<Devel::NYTProf> 文档和网络中的一些 slide,
如有遇到无法解决的问题，请来A<http://groups.google.com/group/perlchina|Perlchina
的邮件列表>询问。

谢谢。

--
Fayland Lam // http://www.fayland.org/

--

您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。