Perl 最佳实践(节选)

fish3129

　　
　　
第五章：变量
　　
　　
零伍壹.

避免使用非法变量（non-lexical variable）

　　
　　坚持只用词法变量（my），除非你真的需要只有包或标点变量才能提供的功能。
　　
　　内置变量的替代做法

变量	用途	替代做法
$1,$2,$3 　　等等	存储前次正则表达式匹配时 　　所捕获的子字符串
$&	存储最近由正则表达式 　　所匹配而得的完整子字符串	在数组正则表达式周围多放一组捕获小括号或者使用Regexp::MatchContext
$`	存储最近成功的正则表达式 　　匹配之处前面的子字符串	在正则表达式前面放一个((?s).*)以捕获一切，直到你实际感兴趣的模式开头为止，或者改用Regexp::MatchContext
$’	存储最近成功的正则表达式 　　匹配之处后面的子字符串	在正则表达式尾端放一个((?s).*)以捕获你实际感兴趣的模式后面的一切，或者改用Regexp::MatchContext
$*	控制正则表达式中换行字符 　　的匹配	使用/m正则表达式修饰符
$.	存储当前输入流中当前行的编号	使用$fh->input_line_number()
$|	控制当前输出流的自动刷新	使用$fh->autoflush()
$”	插入到字符串时所用的数组元素分隔符	使用显示join
$%, $=, $-, 　　$~, $^, $:, 　　$^L, $^A	控制Perl的格式化机制 　　的各种功能	改用Perl6::Form::form
$[	决定数组和字符串的起始索引	绝不要改变以零为起始索引
@F	存储当前行的自动切割的结果	启用Perl时不要使用-a命令行标记
$^W	控制警告	在Perl 5.6.1及后继版本中改用use warnings

　　
　　
　　
　　
　　
零伍贰.

自己做开发是不要使用包变量。

　　
　　
　　
零伍叁.

如果你被迫修改包变量，就将其局域化（localize）。

　　
　　use YAML;
　　local $YAML::Indent = 4;       # 缩排量为4，直到控制权离开当前范围
　　
　　
　　
零伍肆.

对你局域化的任何变量做初始化。

　　
　　
　　
零伍伍.

少见的标点变量应使用use English。

　　
　　完全避开标点变量（punctuationvariable）是不切实际的。
　　
　　
　　
零伍陆.

如果你被迫修改标点变量，就将其局域化（localize）。

　　
　　
　　
零伍叁.

不要使用正则表达式匹配变量。

　　
　　
　　
零伍柒.

通过$_所做的任何修改都要注意。

　　
　　
　　
零伍捌.

从数组尾端计数时使用负数索引。

　　
　　
　　
零伍玖.

利用散列和数组的切片。

　　
　　
　　
零陆零.

为切片使用表格式部署。

　　
　　
　　
零陆壹.

把大型键或索引列表从其切片中分离出来。