我已经使用Perl写了几年的代码，它是我文本处理的首选语言（我处理的许多遗传/基因组问题都可以轻松转化为文本处理问题）。Perl作为一种语言可以非常宽容，你可以用Perl编写非常糟糕但功能正常的代码。就在前几天，我的朋友说他把Perl称为“只能写不能读”的语言：写一次，理解一次，完成后不要尝试回头修复。
虽然我有时候确实会写糟糕的脚本，但我觉得我也写过一些非常清晰和易于维护的Perl代码。然而，如果有人问我是什么让代码清晰和易于维护，我无法给出自信的答案。
什么让Perl代码易于维护？或者更好的问题是，什么让Perl代码难以维护？我们假设我不是唯一一个维护代码的人，其他贡献者像我一样不是专业的Perl程序员，而是具有编程经验的科学家。
-f>@+?*<.-&'_:$#/%!，并且希望在生产代码中编写这样的东西，那么，是的，你会遇到问题。$|，这并不是创建$cnt或更好的$c而不是$count的借口，甚至在某些情况下，更好的语义精确的$character_count。 - DVK$|，但我想你的意思是$.。 - tchrist但总的来说，你关心可维护性并问一个关于它的问题，告诉我你已经处于一个良好的状态并且想得到正确的方式。
什么因素能够使Perl代码易于维护？
至少需要考虑以下几点：
use strict;
use warnings;
请参考perlstyle，其中包含一些通用的指南，可以使您的程序更易于阅读、理解和维护。
在其他答案中没有提到的对于代码可读性非常重要的因素是空格的使用，这既与 Perl 无关，又在某些方面与 Perl 有关。
Perl 允许您编写非常简洁的代码，但简洁的代码块并不意味着它们必须全部挤在一起。
空格在我们谈论可读性时有很多含义和用途，其中并不都是广泛使用的，但大多数都很有用：
Spaces around tokens to easier separate them visually.
This space is doubly important in Perl due to prevalence of line noise characters even in best-style Perl code.
I find $myHashRef->{$keys1[$i]}{$keys3{$k}} to be less readable at 2am in the middle of producion emergency compared to spaced out:
$myHashRef->{ $keys1[$i] }->{ $keys3{$k} }.
As a side note, if you find your code doing a lot of deep nested reference expressions all starting with the same root, you should absolutely consider assigning that root into a temporary pointer (see Sinan's comment/answer).
A partial but VERY important special case of this is of course regular expressions. The difference was illustrated to death in all the main materials I recall (PBP, RegEx O'Reilly book, etc..) so I won't lengthen this post even further unless someone requests examples in the comments.
Correct and uniform indentation. D'oh. Obviously. Yet I see way too much code 100% unreadable due to crappy indentation, and even less readable when half of the code was indented with TABs by a person whose editor used 4 character tabs and another by a person whose editor used 8 character TABs. Just set your bloody editor to do soft (e.g. space-emulated) TABs and don't make others miserable.
Empty lines around logically separate units of code (both blocks and just sets of lines). You can write a 10000 line Java program in 1000 lines of good Perl. Now don't feel like Benedict Arnold if you add 100-200 empty lines to those 1000 to make things more readable.
Splitting uber-long expressions into multiple lines, closely followed by...
Correct vertical alignment. Witness the difference between:
if ($some_variable > 11 && ($some_other_bigexpression < $another_variable || $my_flag eq "Y") && $this_is_too_bloody_wide == 1 && $ace > my_func() && $another_answer == 42 && $pi == 3) {
and
if ($some_variable > 11 && ($some_other_bigexpression < $another_variable ||
$my_flag eq "Y") && $this_is_too_bloody_wide == 1 && $ace > my_func()
&& $another_answer == 42 && $pi == 3) {
and
if ( $some_variable > 11
&& ($some_other_bigexpression < $another_variable || $my_flag eq "Y")
&& $this_is_too_bloody_wide == 1
&& $ace > my_func()
&& $another_answer == 42
&& $pi == 3) {
Personally, I prefer to fix the vertical alignment one more step by aligning LHS and RHS (this is especially readable in case of long SQL queries but also in Perl code itself, both the long conditionals like this one as well as many lines of assignments and hash/array initializations):
if ( $some_variable > 11
&& ($some_other_bigexpression < $another_variable || $my_flag eq "Y")
&& $this_is_too_bloody_wide == 1
&& $ace > my_func()
&& $another_answer == 42
&& $pi == 3 ) {
As a side note, in some cases the code could be made even more readable/maintainable by not having such long expressions in the first place. E.g. if the contents of the if(){} block is a return, then doing multiple if/unless statements each of which has a return block may be better.
0xC0DE用于空格！ - Sinan Ünürperltidy是一个很好的工具。 - Zaid我认为包装/对象模型在.pm文件的目录结构中得到了体现。 在我的博士论文中，我编写了大量的Perl代码，后来进行了重复使用。 它是用于自动LaTeX图表生成器的。
我将谈论一些积极的事情，以使Perl易于维护。
确实，通常不应该使用非常密集的语句，比如return !$@;#%等等，但是在使用列表处理运算符（如map和grep）时，适当地巧妙运用，并从split和类似运算符的列表上下文返回中受益，以函数式风格编写代码可以对可维护性做出积极贡献。在我的上一个雇主那里，我们还有一些漂亮的哈希操作函数，它们以类似的方式工作（hashmap和hashgrep，尽管从技术上讲，我们只提供了偶数大小的列表）。例如：
# Look for all the servers, and return them in a pipe-separated string
# (because we want this for some lame reason or another)
return join '|',
sort
hashmap {$a =~ /^server_/ ? $b : +()}
%configuration_hash;
foreach my $item (@array) { if ($item =~ /.../) { ...) - Joel Berger$_的名称，那么它应该被命名。否则，可能不需要。 - tchrist