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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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;

              }

       }

零零叁.

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

即:

       [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

以上是关于Perl 最佳实践(节选) --- 02的主要内容,如果未能解决你的问题,请参考以下文章

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

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

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

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

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

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