Perl 最佳实践(节选)

fgdfg

　　
第二章：代码部署
　　
　　
零零壹.

以K&R风格表示大括号和小括号。

　　
　　即：
　　my @name = (
　　‘Damian’,
　　‘Matthew’
　　);
　　
　　for my $name (@names) {
　　formy $word ( anagrams_of(lc $name) ) {
　　print“$wor\n”;
　　}
　　}
　　
　　
零零贰.

控制关键字和后继开口括号间要以空白分割

　　
　　例如：
　　
　　formy $result (@results) {
　　print_sep();
　　print$result;
　　}
　　
　　while($min < $max) {
　　my$try = ($max - $min) / 2;
　　if($value[$try] < $target) {
　　$max= $try;
　　}
　　Else {
　　$min= $try;
　　}
　　}
　　
　　
　　
零零叁.

不要把子程序或变量名称与后继开口括号分割开来。

　　
　　即：
　　my@candiates = get_candidates($marker);
　　
　　CANDIDATE:
　　formy $i (0..$#candidates) {
　　nextCANDIATE if open_region($i);
　　
　　$candidates[$i]
　　=$incumbent{ $candidates[$i]{region} };
　　}
　　
　　
零零肆.

不要对内置函数和“名誉”内置函数使用不必要的小括号。

　　即：
　　
　　while(my $record = <$results_file>) {
　　chomp$record;
　　my($name, $votes) = split “\t”, $record;
　　print‘Votes for ’,
　　substr($name,0, 10),           # 为强加优先级所以需要小括号
　　“:$votes (verified)\n”;
　　}
　　
　　
零零伍.

把复杂的键或索引与周围的括号分开来。

　　例如：
　　
　　$candidates[$i]= $incumbent{ $candidates[$i]{ get_region() } };
　　
　　
零零陆.

利用空白让二元运算符相对于其操作数更醒目。

　　
　　例如：
　　my $displacement
　　=$initial_velocity * $time &#43; 0.5 * $acceleration * $time**2;
　　
　　
零零柒.

每条语句之后都放分号。

　　
　　例如：
　　while (my $line = <>) {
　　chomp$line;
　　if( $line =~ s{\A (\s*) – (.*)}{$1#$2}xms ) {
　　push@comments, $2;
　　}
　　
　　Print$line;
　　}
　　
　　
零零捌.

多行列表中的每个&#20540;后面都放逗号。

　　
　　例如：
　　my @dwarves = (
　　‘Happy’,
　　‘Sleepy’,
　　‘Sneezy’
　　);
　　
零零玖.

使用78列的代码行。

　　
　　因为印刷文件、旧式VGA显示设备、展示软件和应用光学没有解除这些限制，以大于80列的宽度作为代码的&#26684;式安排并不合理。
　　
　　
零壹零.

使用4列缩排层次。

　　
　　
零壹壹.

以空&#26684;缩排，不要以制表符(tab)缩排。

　　
　　
零壹贰.

绝不要把两条语句放在同一行。

　　
　　
零壹叁.

代码要分段落。

　　
　　
零壹肆.

不要紧贴着else。

　　
　　“紧贴的”else看起来像这样：
　　} else {
　　正确的：
　　}
　　else{
　　
　　
零壹伍.

垂直对齐相对应的项目。

　　
　　例如：
　　$name     =standardize_name($name);
　　$age        =time - $birth_date;
　　$status    =‘active’;
　　
　　
零壹陆.

在运算符之前断开冗长表达式。

　　
　　例如：
　　push @steps, $steps[-1]
　　&#43;$radial_velocity * $elapsed_time
　　&#43;$orbital_velocity * ($phase &#43; $phase_shift)
　　-$DRAG_COEFF * $altitude
　　;
　　
　　
零壹柒.

把语句中间的冗长表达式分离出来。

　　
　　例如：
　　my $next_step = $steps[-1]
　　&#43;$radial_velocity * $elapsed_time
　　&#43;$orbital_velocity * ($phase &#43; $phase_shift)
　　-$DRAG_COEEF * $altitue
　　;
　　add_step ( \@steps, $next_step,$elapsed_time );
　　
　　
零壹捌.

一定要在最低可能优先级的运算符之处断开冗长表达式。

　　
　　例如：
　　push @steps, $steps[-1]
　　&#43;$radial_velocity * $elapsed_time
　　&#43;$orbital_velocity
　　*($phase &#43; $phase_shift)
　　-$DRAG_COEFF * $altitude
　　;
　　
　　
零壹玖.

在赋&#20540;运算符前断开冗长的赋&#20540;运算。

　　
　　例如：
　　$predicted_val{$current_data_set}[$next_iteration]
　　=$average &#43; $predicted_change * $fudge_factor;
　　
　　
零贰零.

以列安排级联三元运算符。

　　
　　例如：
　　my $name = defined $customer{name} ?$customer{name}
　　:                                         ‘Sir or Madam’
　　;
　　
　　
零贰壹.

冗长列表要加小括号。

　　
　　例如：
　　print (
　　‘Processing’,
　　Scalar(@items),
　　‘items at ’,
　　time,
　　“\n”
　　);
　　
　　
零贰贰.

机械式地执行你所选择的部署风&#26684;。

　　
　　Perl有可用的&#26684;式化工具：perltidy。
　　网址：http://perltidy.sourceforge.net