从细节处提升Perl性能

海鸟搜索：华人超市 中餐馆大全 海外留学的悲催事 Description下面所写的各点都是我从其他地方找过来了。整理一下希望对各位有所帮助。
Details变量和常量1, 尽量减少数学表达式的计算，如 $day = 24*60*60; # 不好 $day = 86400; # better 2, 使用vec函数而不是变量来存放非常小的数字。 print1, 如果输出里没有变量需要内插，使用单引号'而不是双引号".因为双引号会强制 Perl 检查可能插入的信息
2, 多段输出时用,而不是.。因为连接操作符.会首先将字符串连接在一起，然后将其作为一个参数打印
避免没必要的引号摘自 FAQ 3.16: How can I make my Perl program take less memory?
没有绝对必要不要使用引号： my $copy = "$large_string";上述会$large_string做两次拷贝（一是拷贝到 $copy 另一次是引号内插），反之 my $copy = $large_string;只做一次拷贝。

数组字符串化同样摘自 FAQ 3.16
对于大数组字符串化： { local $, = "\n"; print @big_array; }比下面两样都更节省内存 print join "\n", @big_array; #or { local $" = "\n"; print "@big_array"; }引用\如果使用大型数组或 hash 表，并使用它们作为函数的参数，那么应该使用它们的一个引用，而不应该直接使用它们。通过使用引用，可以告诉函数指向信息的指针。如果不使用引用，就需要将整个数组或 hash 表复制到该函数的调用栈中，然后在函数中再次对其进行复制。引用还可以节省内存（这可以减少足迹和管理的负载），并简化您的编程。 循环尽早在循环内放置条件语句，以使Perl不执行无用的语句。如 while () { chomp; next if /^#/; next可以放在chomp上面。 有选择性地使用 map 和 grep摘自 FAQ 3.16: How can I make my Perl program take less memory?
因为 map 和 grep 是使用 LIST 列表参数，所以这么做 @wanted = grep {/pattern/} ;会一次性读入整个文件。对于大文件来说，使用循环会更好一点： while () { push(@wanted, $_) if /pattern/; }正则表达式

pack/unpack > regexp > substr

删除字符串中的字符时用tr///d来代替s///g

在正则表达式的外面使用“or”或“||”操作。 $found = if /one/ || /two/; # better $found = if /one|two/; # use above to replace

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

数据结构Tie::SubstrHash 对于某些类型的数据结构会有所帮助 =pod如果您用了一大块 pod 来描述你的代码，那么请尽量不要将其放在文件的上面或中间部分。虽然 perl 分析器能很快的跳过 pod ，但是这不是魔法，它还是需要一点时间的。它还是需要从磁盘中读入它，并且读入的目的仅仅是忽略它。将所有的pod放到__END__后面，那样 Perl 编译器就不会去注意它。
但是将pod与相关代码放在一起或许是种好习惯。 warnings/strict强烈建议编程和调试时开启，而在代码发布时去掉它们。 Final最后强烈建议各位阅读参考里的“When perl is not quite fast enough”。 参考/Refer

When perl is not quite fast enough

人民邮电出版社出版的Martin C. Brown写的《Perl参考大全》，21.4 优化代码