Perl 的一些优雅特性或用途是什么？

除了 map 和 grep 的使用外，我们还可以编写一个简单的命令行解析器。

my %opts = map { $_ => 1 } grep { /^-/ } @ARGV;

如果需要，我们可以将每个标志设置为其在@ARGV中的索引：

my %opts = map { $ARGV[$_] => $_ } grep { $ARGV[$_] =~ /^-/ } 0 .. $#ARGV;

那么，如果一个标记有一个参数，我们可以像这样获取参数：

if( defined( $opts{-e} ) ) {
  my $arg = $ARGV[ $opts{-e} ];
  # do -e stuff for $arg
}

当然，有些人可能会抱怨我们在重新发明轮子，建议使用 getopt 或其某个变体，但老实说，这是一个相当容易的轮子可以重新发明。而且，我不喜欢 getopt。
如果你不喜欢某些行有多长，你可以使用中间变量或方便的换行符（嘿，Python 狂热者？你听到了吗？我们可以将一行代码分成两行，它仍然可以工作！）使其看起来更好：

my %opts = map  { $ARGV[$_] => $_   }
           grep { $ARGV[$_] =~ /^-/ } 0 .. $#ARGV;

这个文件解析机制紧凑而且易于自定义（跳过空白行，跳过以 X 开头的行等等）。

open(H_CONFIG, "< $file_name") or die("Error opening file: $file_name! ($!)");
while (<H_CONFIG>)
{
   chomp;         # remove the trailing newline
   next if $_ =~ /^\s*$/; # skip lines that are blank
   next if $_ =~ /^\s*#/; # skip lines starting with comments
   # do something with the line
}

我在各种构建情况下使用这种结构 - 在那些需要预处理或后处理有效载荷文件（S-records等）或C文件，或者收集目录信息以进行“智能构建”的情况下。

我的最爱 Perl 的优雅之处在于它对数字值和字符串值使用不同的运算符。

my $string = 1 . 2;
my $number = "1" + "2";
my $unambiguous = 1 . "2";

与其他动态语言（如JavaScript）相比，JavaScript中使用“+”进行字符串连接和数学加法运算。

var string = "1" + "2";
var number = 1 + 2;
var ambiguous = 1 + "2";

或者是针对动态语言，如Python和Ruby，需要在字符串和数值之间进行类型转换。

string = "1" + "2"
number = 1 + 2
throws_exception = 1 + "2"

在我看来，Perl做得非常正确，而其他编程语言则做得很糟糕。

像我这样打字速度较慢的人，经常按Shift键会手抽筋，而且几乎有一种无理的恐惧使用分号，所以我们开始在python格式的文件中编写Perl代码。 :)
例如：

>>> k = 5
>>> reduce(lambda i,j: i*j, range(1,k+1),1)
120
>>> k = 0
>>> reduce(lambda i,j: i*j, range(1,k+1),1)
1