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

概述  第四章：值和表达式   数据是缺乏生气的…… 有点像程序员。 — Arthur Norman         零叁叁. 只对实际会插入的字符串使用插入用字符串界定符。   l        创建字符串直接量而且想插入变量，使用双引号括住的字符串 my $spam_name = “$title$first_name $surname”; l        创建字符串直接量而且不想插入任何变量，使

 

第四章：值和表达式

 

数据是缺乏生气的……

有点像程序员。

— Arthur norman

 

 

 

 

零叁叁.

只对实际会插入的字符串使用插入用字符串界定符。

 

l        创建字符串直接量而且想插入变量，使用双引号括住的字符串

my $spam_name = “$Title$first_name $surname”;

l        创建字符串直接量而且不想插入任何变量，使用单引号括住的字符串

my $spam_name = ‘DrLaWrence Mwalle’;

l        如果无插入（uninterpolated）字符串本身包含单引号直接量，就改用q{…}的形式：

my $spam_name =q{r LaWrence (‘Larry’) Mwalle};

l        不要把反斜线（\）作为引号定界符；这样只会让内容和容器难以区分：

my $spam_name = ‘Dr LaWrence (\’Larry\’) Mwalle’;

l        如果无插入字符串包含单引号直接量以及不平衡的大括号，就改用中括号作为定界符：

my $spam_name =q[Dr LaWrence ] Larry{ Mwalle};

 

 

 

 

零叁肆.

空字符串不要用””或’’。

 

       $error_msg= q{};

 

 

 

 

零叁伍.

不要用视觉上会产生模糊的方式编写单字符字符串。

 

 

 

 

零叁陆.

使用具名字字符转义，不要使用数值转义。

 

通过use charnames指令（pragma）

 

       usecharnames qw( :full);

       $escape_seq= “\N{DELETE}\N{ACKNowLEDGE}\N{CANCEL}Z”;

 

 

 

 

零叁柒.

使用具名常量，不要使用use constant。

 

纯粹的数字突然出现在程序中间通常都很神秘、时常令人困惑，而且都是潜在的错误源头。

 

把这种纯粹的数字直接量换成只读的词法变量，而以变量名词说明该数字的意义：

       useReadonly;

       Readonlymy $MolYBDENUM_ATOMIC_NUMBER => 42;

 

       #稍后 ……

       print$count * $MolYBDENUM_ATOMIC_NUMBER;

 

 

 

 

零叁捌.

不要以前导零替十进制数补位。

 

如果你必须指定八进制数值，就用内置的oct函数，例如：

 

       useReadonly;

       Readonlymy %PERMISSIONS_FOR => (

              USER_ONLY                =>   oct(600),

              norMAL_ACCESS    => oct(644),

              ALL_ACCESS              =>   oct(666)

);

 

 

 

 

零叁玖.

使用下划线改进长数字的可读性。

 

use bignum;

 

$PI =3.141592_653589_793238_462643_383279_502884_197169_399375;

 

$subnet_mask = 0xFF_FF_FF_80;

 

 

 

 

零肆零.

在多行上部署多行字符串。

 

如果字符串内有换行字符，而整个字符串无法在一行内排完，就应该在每个换行字符之后断开，再将那几段串联起来：

 

       $usage= “Usage: $0 <file>[-full]\n”

                     .“(Use –full option for full dump)\n”

                     ;

 

 

 

 

零肆壹.

当多行字符串超过两行时，就使用heredoc（Here document）。

 

对少数几行而言，“在新行之后断开再串联”的方法很适合，但是对大段的文字而言，就会开始变得没有效率和难看。

 

对超过两行的多行字符串而言，就改用heredoc：

 

       $usage=  <<“END_USAGE;

Usage: : $0 <file> [-full] [-o] [-beans]”

Options:

              -full        : produce a full dump

              -o           : dump in octal

              -beans     : source is Java

       END_USAGE

 

 

 

 

零肆贰.

当heredoc危及你的缩排时，就改用“theredoc”。

 

较佳的实践是把这类heredoc分离出来，放进预定义常量或子程序内（“theredoc”）：

 

       useReadonly;

       Readonlymy $USAGE => <<’END_USAGE’;

       Usage: qdump  <file> [-full] [-o] [-beans]”

Options:

              -full        : produce a full dump

              -o           : dump in octal

              -beans     : source is Java

       END_USAGE

      

       #稍后……

       if($usage_error) {

              warn$USAGE;

       }

 

 

 

 

零肆叁.

每个heredoc中止符号都做成单一大写标识符，而且带有标准的前缀。

 

       print<<’END_List’;

       getname

       setsize

       putnext

       END_List

 

 

 

 

零肆肆.

引入heredoc时以引号标示终止符号。

 

注意，在前几条指导方针的heredoc范例中，都在<<之后使用单引号或双引号。

 

以单引号括起此标示符号，会强迫heredoc不去插入任何变量。

以双引号括起此标示符号，就会确保heredoc字符串会被插入任何变量。

 

 

 

 

零肆伍.

不要使用未修饰字(bareword)。

 

strict 指令会在编译期间检查出任何未修饰字：

 

       usestrict ‘subs’;

 

       my@sqrt = map {sqrt $_} 0..100;

       formy $N (2,3,5,8,13,21,34,55) {

              print$sqrt[N],“\n”;

       }

然后抛出异常：

       bareword“N” not allowed while “strict subs” in use at sqrts.pl line 5

 

 

 

零肆陆.

保留=>给成对的东西使用。

 

每当你创建 键—值、明—值的列表时，都要使用“胖逗号”（即=>， fat comma）来把键与其相应的值联系起来。例如，构建散列时就可用到：

 

       %default_service_record= (

              name     => ‘<unkNown>’,

              rank        =>   ‘Recruit’,

              serial       =>   undef

);

 

 

 

零肆柒.

不要用逗号排序语句。

 

有C/C++背景的Perl程序员习惯在Perl程序中写出C风格的for循环：

 

# 二分查找（binary chop）搜索 ……

SEARCH:

       for($min = 0,$max = $#samples,$found_target = 0; $min <= $max; ) {

              $pos= int(($max + $min) / 2);

              my$test_val = $samples[$pos];

             

              if($target == $test_val) {

                     $found_target= 1;

                     lastSEARCH;

              }

              elsif($target < $test_val) {

                     $max= $pos - 1;   

              }

              else{

                     $min= $pos + 1;   

              }

       }

 

 

正确的是：

# 二分查找（binary chop）搜索 ……

SEARCH:

       for(do{$min = 0,$found_target = 0;}; $min <= $max; ) {

              # 同前例

       }

 

       print‘Sir’,

              do{check_name($name); $name;},

              ‘,KBE’;

 

 

 

 

零肆捌.

不要把高低优先级的布尔运算混在一起。

 

为了让条件测试的理解度提升到最大，要完全避免and和not，然后只把低优先级的or保留给易出错的内置函数使用以指定“退路”（fallbackposition）：

 

       open my $source,‘<’,$source_file

              or croak “Couldn’t access sourcecode: $OS_ERROR”;

 

 

 

 

零肆玖.

每个原始列表都要以小括号括起来。

 

       @todo= (‘Patent concept of 1 and 0’,‘Sue Microsoft and IBM’,‘Profit!’);

 

 

 

 

零伍零.

使用表格查找来测试字符串列表中的成员关系；

使用any() 测试任何其他东西的列表的成员关系。

 

       #索引编号是否已被取走？

       if(any {$requeste_slot == $_ } @allocated_slots ) {

              print“Slot $requested_slot is already taken. Please select another:”;

              redoGET_SLOT;

}

 

如果你的列表成员关系测试使用eq，就不要使用any()，最好改用查找表：

 

       Readonly my %IS_EXIT_WORD

              =map { ($_ => 1) } qw(

                            Qquit bye exit stop done last finish aurevoir

                     );

      

       稍后 ……

       if( $IS_EXIT_WORD{$cmd} ) {

              abort_run();

       }

总结

以上是内存溢出为你收集整理的Perl 最佳实践(节选) --- 04全部内容，希望文章能够帮你解决Perl 最佳实践(节选) --- 04所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。