从细节处提升Perl性能

From:http://www.chinakdd.com/html/bianchengjishu/html/cgi-perl/2007/0127/93989.html

变量和常量

1, 尽量减少数学表达式的计算，如

$day = 24*60*60; # 不好 $day = 86400; # better 字串6 

2, 使用vec函数而不是变量来存放非常小的数字。

print

1, 如果输出里没有变量需要内插，使用单引号"而不是双引号".因为双引号会强制 Perl 检查可能插入的信息

2, 多段输出时用,而不是.。因为连接操作符.会首先将字符串连接在一起，然后将其作为一个参数打印

避免没必要的引号

摘自 FAQ 3.16: How can I make my Perl program take less memory?

没有绝对必要不要使用引号：

my $copy = "$large_string"; 字串8 

上述会$large_string做两次拷贝（一是拷贝到 $copy 另一次是引号内插），反之

my $copy = $large_string; 字串2 

只做一次拷贝。

数组字符串化

同样摘自 FAQ 3.16

对于大数组字符串化：

{ local $, = " "; print @big_array; } 字串7 

比下面两样都更节省内存

print join " ", @big_array; #or { local $" = " "; print "@big_array"; } 
字串4 

引用

如 果使用大型数组或 hash 表，并使用它们作为函数的参数，那么应该使用它们的一个引用，而不应该直接使用它们。通过使用引用，可以告诉函数指向信息的指针。如果不使用引用，就需要 将整个数组或 hash 表复制到该函数的调用栈中，然后在函数中再次对其进行复制。引用还可以节省内存（这可以减少足迹和管理的负载），并简化您的编程。

循环

尽早在循环内放置条件语句，以使Perl不执行无用的语句。如

while () {
 chomp;
 next if /^#/;
 字串7 

next可以放在chomp上面。

有选择性地使用 map 和 grep

摘自 FAQ 3.16: How can I make my Perl program take less memory?

因为 map 和 grep 是使用 LIST 列表参数，所以这么做

@wanted = grep {/pattern/} ; 字串3 

会一次性读入整个文件。对于大文件来说，使用循环会更好一点：

while () {
 push(@wanted, $_) if /pattern/;
} 字串1 

正则表达式

1. pack/unpack > regexp > substr
2. 删除字符串中的字符时用tr///d来代替s///g
3. 在正则表达式的外面使用“or”或“||”操作。
   

   $found = if /one/ || /two/; # better $found = if /one|two/; # use above to replace 字串5 

4. 如果字符串很长，正则表达式很复杂，可以使用study来加快速度

数据结构

Tie::SubstrHash

对于某些类型的数据结构会有所帮助

=pod

如 果您用了一大块 pod 来描述你的代码，那么请尽量不要将其放在文件的上面或中间部分。虽然 perl 分析器能很快的跳过 pod ，但是这不是魔法，它还是需要一点时间的。它还是需要从磁盘中读入它，并且读入的目的仅仅是忽略它。将所有的pod放到__END__后面，那样 Perl 编译器就不会去注意它。

但是将pod与相关代码放在一起或许是种好习惯。

warnings/strict

强烈建议编程和调试时开启，而在代码发布时去掉它们。

Final

最后强烈建议各位阅读参考里的“When perl is not quite fast enough”。

参考/Refer

• http://www-900.ibm.com/developerworks/cn/linux/l-optperl.shtml
• When perl is not quite fast enough
• 人民邮电出版社出版的Martin C. Brown写的《Perl参考大全》，21.4 优化代码