标签：
数据是缺乏生气的……
有点像程序员。
— 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();
}
标签：
原文地址：http://www.cnblogs.com/xiaobin-hlj80/p/5188437.html
