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

第四章：值和表达式

数据是缺乏生气的……

有点像程序员。

— 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, $max = $#samples, $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();

}