"什么？Perl漂亮？优雅？他一定是在开玩笑！"
事实是，有些Perl代码确实很丑陋。我指的是很多。我们都见过。
"当然了，它就是一个符号汤。不是吗？"
是的，有符号。就像“数学”有“符号”一样。只是我们程序员更熟悉标准的数学符号。我们接受来自母语的符号，无论是ASM、C还是Pascal。Perl只是决定要多一些。
"好吧，我认为我们应该摆脱所有不必要的符号。这样代码看起来更好看。"
已经存在用于这样做的语言。它叫做Lisp。（以及即将到来的perl 6。）
"好的，聪明的家伙。事实是，我已经可以发明自己的符号了。它们被称为函数和方法。此外，我们不想重新发明APL。"
哦，虚假的替身，你太有趣了！事实上，Perl可以非常美丽。它也可以非常丑陋。在Perl中，TIMTOWTDI。
那么，你最喜欢的优雅的Perl代码是什么？
Perl使用列表/哈希表来实现命名参数，我认为这非常优雅，并且对于自我文档化的代码是一种巨大的帮助。
my $result = $obj->method(
flux_capacitance => 23,
general_state => 'confusion',
attitude_flags => ATTITUDE_PLEASANT | ATTITUDE_HELPFUL,
);
我最喜欢的优雅Perl代码并不一定真的优雅。它们是“元优雅”的，可以帮助你摆脱许多Perl开发者陷入的坏习惯。详细介绍所有这些代码需要花费数小时或数天的时间，但简要列举如下：
or die...结构的需求）。另请参阅我的autodie博客和视频。我惊讶地发现没有人提到Schwartzian变换。
my @sorted =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [ $_, expensive_func($_) ] }
@elements;
如果没有 slurp 运算符，
my $file = do { local $/; readline $fh };
如果用户提供了一组要处理的文件列表，而您又不想意外地处理程序、文件夹或不存在的文件，可以尝试以下方法:
@files = grep { -T } @files;
就像魔术一样，您已经筛选出了所有不适当的条目。不想悄悄地忽略它们吗？在最后一行之前添加以下行：
warn "Not a file: $_" foreach grep { !-T } @files;
将无法处理的每个文件打印出漂亮的警告消息到标准错误流。不使用 grep 的情况下，相同的操作看起来像这样:
my @good;
foreach(@files) {
if(-T) {
push @good, $_;
} else {
warn "Not a file: $_";
}
}
grep（和map）可以使代码更短，同时仍保持它非常易读。
map { warn "Not a file: $_" unless -T, $_ } @files。 - LSpice“or die”结构：
open my $fh, "<", $filename
or die "could not open $filename: $!";
使用 qr// 创建语法：
#!/usr/local/ActivePerl-5.10/bin/perl
use strict;
use warnings;
use feature ':5.10';
my $non_zero = qr{[1-9]};
my $zero = qr{0};
my $decimal = qr{[.]};
my $digit = qr{$non_zero+ | $zero}x;
my $non_zero_natural = qr{$non_zero+ $digit*}x;
my $natural = qr{$non_zero_natural | $zero}x;
my $integer = qr{-? $non_zero_natural | $zero}x;
my $real = qr{$integer (?: $decimal $digit)?}x;
my %number_types = (
natural => qr/^$natural$/,
integer => qr/^$integer$/,
real => qr/^$real$/
);
for my $n (0, 3.14, -5, 300, "4ever", "-0", "1.2.3") {
my @types = grep { $n =~ $number_types{$_} } keys %number_types;
if (@types) {
say "$n is of type", @types == 1 ? " ": "s ", "@types";
} else {
say "$n is not a number";
}
}
使用匿名子程序来分解重复代码：
my $body = sub {
#some amount of work
};
$body->();
$body->() while $continue;
而不是
#some amount of work
while ($continue) {
#some amount of work again
}
基于哈希的调度表：
my %dispatch = (
foo => \&foo,
bar => \&bar,
baz => \&baz
);
while (my $name = iterator()) {
die "$name not implemented" unless exists $dispatch{$name};
$dispatch{$name}->();
}
取代
while (my $name = iterator()) {
if ($name eq "foo") {
foo();
} elsif ($name eq "bar") {
bar();
} elsif ($name eq "baz") {
baz();
} else {
die "$name not implemented";
}
}
$body->(); $body->() while $continue（你可能想表达的是 $continue->() …）更好的方法是 do { $body->() } while $continue，它实现了相同的效果，保证 $body->() 将被执行一次 (http://perldoc.perl.org/perlsyn.html#Statement-Modifiers)。 - LSpiceuse List::Util qw/reduce/;
sub factorial {
reduce { $a * $b } 1 .. $_[0];
}
如果数字小于等于1或者是字符串，返回false；如果传入的是数字，则返回该数字（如果是小数则向下取整）。
而对于Perl 6的期待，它看起来像是这样：（链接）
sub factorial {
[*] 1..$^x
}
此外（来自上面链接的博客），您甚至可以将其实现为运算符：
sub postfix:<!>(Int $x) {
[*] 1..($x || 1)
}
然后您可以像这样在代码中使用它：
my $fact5 = 5!;
replace 可以被 for 替代：sub { my $fact = 1; $fact *= $_ for 1 .. $_[0] }。这看起来可能不是特别优雅，但在我看来，它似乎是对 reduce 所做的事情相当紧凑的翻译（并且通过某种程度上的蛮力方法给出了 0 的阶乘的正确答案）。 - LSpice具有构造函数、getter/setter和类型验证的三行类：
{
package Point;
use Moose;
has ['x', 'y'] => (isa => 'Num', is => 'rw');
}
package main;
my $point = Point->new( x => '8', y => '9' );
$point->x(25);
my %lookup = map { $_ => 1 } split /,/, $flags;
if ( $lookup{FLAG} ) {
print "Ayup, got that flag!";
}
我很惊讶没有人提到这个。在我看来，这是一件杰作：
#!/usr/bin/perl $==$'; $;||$.| $|;$_ ='*$ ( ^@(%_+&~~;# ~~/.~~ ;_);;.);;#) ;~~~~;_,.~~,.* +,./|~ ~;_);@-, .;.); ~ ~,./@@-__);@-);~~,.*+,. /|);;;~~@-~~~~;.~~,. /.);;.,./@~~@-;.;#~~@-;; ;;,.*+,./.);;#;./@,./ |~~~~;#-(@-__@-__&$#%^';$__ ='`'&'&';$___="````" |"$[`$["|'`%",';$~=("$___$__-$[``$__"| "$___"| ("$___$__-$[.%")).("'`"|"'$["|"'#"). '/.*?&([^&]*)&.*/$'.++$=.("/``"|"/$[`"|"/#'").(";`/[\\`\\`$__]//`;" |";$[/[\\$[\\`$__]//`;"|";#/[\\\$\\.$__]//'").'@:=("@-","/.", "~~",";#",";;",";.",",.",");","()","*+","__","-(","/@",".%","/|", ";_");@:{@:}=$%..$#:;'.('`'|"$["|'#')."/(..)(..)/".("```"|"``$["| '#("').'(($:{$'.$=.'}<<'.(++$=+$=).')|($:{$'.$=.'}))/'.("```;"| "``$[;"|"%'#;").("````'$__"|"%$[``"|"%&!,").${$[};`$~$__>&$=`;$_= '*$(^@(%_+&@-__~~;#~~@-;.;;,.(),./.,./|,.-();;#~~@-);;;,.;_~~@-,./., ./@,./@~~@-);;;,.(),.;.~~@-,.,.,.;_,./@,.-();;#~~@-,.;_,./|~~@-,. ,.);););@-@-__~~;#~~@-,.,.,.;_);~~~~@-);;;,.(),.*+);;# ~~@-, ./|,.*+,.,.);;;);*+~~@-,.*+,.;;,.;.,./.~~@-,.,.,.;_) ;~~~ ~@-,.;;,.;.,./@,./.);*+,.;.,.;;@-__~~;#~~@-,.;;,.* +);; #);@-,./@,./.);*+~~@-~~.%~~.%~~@-;;__,. /.);;#@- __@- __ ~~;;);/@;#.%;#/.;#-(@-__~~;;;.;_ ;#.%~~~~ ;;() ,.;.,./@,. /@,.;_~~@- ););,.;_ );~~,./ @,. ;;;./@,./| ~~~~;#-(@- __,.,.,. ;_);~~~ ~@ -~~());; #);@-,./@, .*+);;; ~~@-~~ );~~);~~ *+~~@-);-( ~~@-@-_ _~~@- ~~@-);; #,./@,.;., .;.);@ -~~@-; #/.;#-( ~~@-@-__ ~~@-~~ @-);@ -);~~, .*+,./ |);;;~ ~@-~~ ;;;.; _~~@-@ -__);. %;#-( @-__@ -__~~;# ~~@-;; ;#,. ;_,.. %);@-,./@, .*+, ..%, .;.,./|) ;;;) ;;#~ ~@-,.*+,. ,.~~ @-); *+,.;_);;.~ ~);); ~~,.; .~~@-);~~,.;., ./.,.; ;,.*+我非常喜欢Black Perl（链接是为了版本适应Perl 5而重写）。它能编译，但据我所知实际上并没有做任何事情。
这就是用一种从实用角度而非理论角度撰写的语言而得到的结果。
除此之外，你可以将人们抱怨的Perl称为pidgin Perl（非常有用，但表达起来不够表现力，当心试图在其中表达复杂的内容），而@pjf所说的内容则是“正式”的Perl，这是莎士比亚、海明威、休谟等人使用的语言。【编辑：呃，虽然比休谟更易于阅读，比莎士比亚不那么过时。】【重新编辑，希望不要像海明威那样醉醺醺的。】