-
英文原文
- 在终端中输入 “perldoc perlstyle” 即可查看
- http://perldoc.perl.org/perlstyle.html
-
中文翻译
-
简单修改整理后的中文翻译
每个程序员都会有自己的编程风格,但是有一些一般性的原则可以使得我们的程序更加易于阅读、理解及维护。
最重要的是使用 -w 选项。如果必须关闭该选项,可以用 “no warnings” 或变量 $^W 来在一定的代码段中关闭它。 除非你有足够的理由,否则应该使用 “use strict”。此外,”use sigtrap” 和 “use diagnostics” 也是非常有用的。
关于代码美学,Larry 大概只强烈的关心一件事情:多行块的结束花括号应该与开始的关键字对齐。除了这个,还有一些不是那么重要的东西:
- 4列缩进。
- 如果可能的话,开始的花括号与关键词最好放在同一行,否则请将两者对齐。
- 多行块的开始花括号之前应当有空格。
- 单行的块放在一行,包括花括号。
- 分号前不要有空格。
- 在短的单行块中省略分号。
- 操作符两端添加空格。
- 在“复合”下标周围使用空格 (在括号中)。
- 在不同功能的块之间添加空行。
- else另起一行写。
- 函数与括号间不要添加空格。
- 每个逗号后添加空格。
- 长句子在操作符后截断 ( “and” 和 “or” 除外)。
- 关闭括号后添加空格。
- 相关项之间以列方式对齐。
- 在不影响理解的情况下尽量减少标点符号。
Larry 这样做当然有他的原因, 不过他并没有要求别人都要和他一样。
以下意见供您参考:
可以那样做并不意味着应该那样做。在Perl中,每一件事情都有多种方法来完成;你应该选择最可读的一种。例如
open(FOO,$foo) ││ die "Can’t open $foo: $!"; |
要好于
die "Can’t open $foo: $!" unless open(FOO,$foo); |
因为第二种办法掩盖了句子中的主要目的。另一方面
print "Starting analysisn" if $verbose; |
要好于
$verbose && print "Starting analysisn"; |
因为本句的主题不在于用户是否输入了 −v。
类似的,某个操作符允许使用默认值,不意味着你必须使用默认值。默认值是为懒惰的系统程序员书写只运行一次的程序而准备的。如果你需要你的程序可读性好,请考虑给出参数。
根据相同的原则,在很多地方即使你可以忽略括号,也不意味着你应当那样做:
return print reverse sort num values %array; return print(reverse(sort num (values(%array)))); |
如果有疑义,请使用括号。至少它使得“可怜的笨蛋”能在 vi 中使用 % 键来跳转。
即使没有疑义,也请为那个将来维护你的代码的家伙的精神健康考虑一下吧,并且他很有可能会把括号放错地方奥。
- 在程序中使用 last 跳出,而不要在开始和结束时用奇怪的跳转退出循环。把它 “缩出” 几格以利于阅读:
LINE: for (;;) { statements; last LINE if $foo; next LINE if /^#/; statements; } |
- 别害怕使用循环标记——它们用来增强可读性并且允许多层循环的中断。参见前例。
- 避免在空上下文中使用 grep() (或 map()) 或 “反引号”,那样,你就丢弃了它们的返回值。使用它们是为了得到返回值,否则,使用 foreach() 或者 system() 就好了。
- 移植的时候,要考虑到考虑某些特性可能不是在所有的机器上都能够得到支持,这时可以用 eval来进行测试。如果你知道提供特定功能的版本或者补丁, 你可以察看 $] (也就是 “English” 中的 $PERL_VERSION) 来确定当前的版本。”Config” 模块也会提供perl在安装时 Configure 程序测得的值。
- 使用明确的标识符,你要是想不起来标识符的意思,那就麻烦了。
- 短标识符,如 $gotit,虽然没什么不好,但是用下划线来分割单词可以增加易读性。如 $var_names_like_this 要好于 $VarNamesLikeThis,对不以英语为母语的人更是如此。同样,在使用 VAR_NAMES_LIKE_THIS 时也要遵循这个规则。
包名称有时不遵守这个约定。Perl 为 “pragma” 保留小写的包名称,比如 integer 和 strict。其他模块名称应该用大写字母开始,但是一般不用下划线来分隔;因为在某些系统中,当使用模块名来作文件名时会出现错误。
- 使用大小写可以区分变量的作用域。例如:
$ALL_CAPS_HERE 常量 (小心!不要与 perl 变量冲突!) $Some_Caps_Here 包作用域 global/static $no_caps_here 函数作用域 my() 或 local() 变量 |
函数和方法名多用小写。如,$obj−>as_string().
用下划线开始的函数名或变量名,表示该函数或变量只能在定义它的包中使用。
- 如果你的正则表达式较复杂,用 “/x” 来增加注释行或空行以利于阅读。当其中有很多斜杠或反斜杠时,不要用反斜杠来作正则表达式的定界符。
- 使用 “and” 和 “or” 操作符以减少使用括号, 尽量少用 && 和 ││。调用子程序时尽量少用”&”和括号,可以把子程序当做函数或列表操作符来调用。
- 使用 here documents 代替大量的 print() 语句。
- 相关语句用列对齐方式来书写,特别是当一行放不下的时候.
$IDX = $ST_MTIME; $IDX = $ST_ATIME if $opt_u; $IDX = $ST_CTIME if $opt_c; $IDX = $ST_SIZE if $opt_s; mkdir $tmpdir, 0700 or die "can't mkdir $tmpdir: $!"; chdir($tmpdir) or die "can't chdir $tmpdir: $!"; mkdir 'tmp', 0777 or die "can't mkdir $tmpdir/tmp: $!"; |
- 总是检测返回值。错误信息被送往 STDERR,包括出错的程序、失败的系统调用及参数,并且(非常重要)包括标准错误信息。这里是一个简单而完整的例子:
opendir(D, $dir) or die "can’t opendir $dir: $!"; |
- 把转换列表以列对齐方式排列:
tr [abc] [xyz]; |
- 考虑可重复使用性。请考虑使用模块或对象。考虑使用 use strict 和 use warnings (或 -w) 使代码清晰明确。考虑改变自己的世界观。
- 要一致,要兼容。
- 要漂亮,要美观。