Perl 最佳实践(节选) --- 02

第二章：代码部署

零零壹.

以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 + 0.5 * $acceleration * $time**2;

零零柒.

每条语句之后都放分号。

例如：

while (my $line = <>) {

chomp$line;

if( $line =~ s{\A (\s*) – (.*)}{$1#$2}xms ) {

push@comments, $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