用Devel::NYTProf 优化perl脚本性能

前几天发一下一个脚本运行非常慢，使用time只能知道总的时间，却无法确认原因，发现Devel::NYTProf是个很不错的工具。

如果你有root权限，则：

perl -MCPAN -e shell
>installJSON::Any（不安这个东东，在nyt生成html的时候会报warning，不是必须的）
>installDevel::NYTProf

如果你没有root权限，那么：

• 在home目录下新建一个文件夹，比如 /home/username/perl.local
  
• 从http://search.cpan.org/~timb/Devel-NYTProf-4.06/lib/Devel/NYTProf.pm下载原始文件到这个文件夹
• 解压缩，然后make
• 找到Makefile里面的PREFIX，将值修改为 /home/username/perl.local
• 在 /home/username/perl.local下面新建一个local目录
• 然后make install，完成安装
• /home/username/perl.local下会多出bin,local,share目录
• 修改环境变量，export PERL5LIB="$PERL5LIB:/home/username/perl.local/local/lib/perl/5.8.4"
  

运行perl -d:NYTProf /home/username/url_parser.pl，会在当前路径下生成nytprof.out

运行 /home/username/perl.local/bin/nytprofhtml nytprof.out生成web页面。

看看那个函数最耗时

看看那个语句最耗时

【参考】

• http://blog.sina.com.cn/s/blog_04268f4b0100moi9.html
• http://augustinalareina.wordpress.com/2011/02/05/getting-started-with-develnytprof/