第二章：代码部署
零零壹.
以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;
}
}
零零叁.
不要把子程序或变量名称与后继开口括号分割开来。
即：
[email protected] = 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 + 0.5 * $acceleration * $time**2;
零零柒.
每条语句之后都放分号。
例如：
while (my $line = <>) {
chomp$line;
if( $line =~ s{\A (\s*) – (.*)}{$1#$2}xms ) {
[email protected], $2;
}
Print$line;
}
零零捌.
多行列表中的每个值后面都放逗号。
例如：
my @dwarves = (
‘Happy’,
‘Sleepy’,
‘Sneezy’
);
零零玖.
使用78列的代码行。
因为印刷文件、旧式VGA显示设备、展示软件和应用光学没有解除这些限制，以大于80列的宽度作为代码的格式安排并不合理。
零壹零.
使用4列缩排层次。
零壹壹.
以空格缩排，不要以制表符(tab)缩排。
零壹贰.
绝不要把两条语句放在同一行。
零壹叁.
代码要分段落。
零壹肆.
不要紧贴着else。
“紧贴的”else看起来像这样：
} else {
正确的：
}
else{
零壹伍.
垂直对齐相对应的项目。
例如：
$name =standardize_name($name);
$age =time - $birth_date;
$status =‘active’;
零壹陆.
在运算符之前断开冗长表达式。
例如：
push @steps, $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity * ($phase + $phase_shift)
-$DRAG_COEFF * $altitude
;
零壹柒.
把语句中间的冗长表达式分离出来。
例如：
my $next_step = $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity * ($phase + $phase_shift)
-$DRAG_COEEF * $altitue
;
add_step ( \@steps, $next_step,$elapsed_time );
零壹捌.
一定要在最低可能优先级的运算符之处断开冗长表达式。
例如：
push @steps, $steps[-1]
+$radial_velocity * $elapsed_time
+$orbital_velocity
*($phase + $phase_shift)
-$DRAG_COEFF * $altitude
;
零壹玖.
在赋值运算符前断开冗长的赋值运算。
例如：
$predicted_val{$current_data_set}[$next_iteration]
=$average + $predicted_change * $fudge_factor;
零贰零.
以列安排级联三元运算符。
例如：
my $name = defined $customer{name} ?$customer{name}
: ‘Sir or Madam’
;
零贰壹.
冗长列表要加小括号。
例如：
print (
‘Processing’,
Scalar(@items),
‘items at ’,
time,
“\n”
);
零贰贰.
机械式地执行你所选择的部署风格。
Perl有可用的格式化工具：perltidy。
网址：http://perltidy.sourceforge.net