学了 Perl 两年有余，今天才发现这厮没有 switch。在不是在此时不知在何时发布的 Perl 6 里头， switch 被有了个表亲叫 given。Larry 说，少打哪怕一个字符，都是对自我的救赎…… 所以 print 穿上马甲变成了 say。

解决办法有许多，比如创建个子例程哈希表。

而我原本想用的地方是跟 print 有关的一句，后来幡然悔悟，最终写下：

1

print { $files[$i] } "stuff\n";

既然有这么完美的数组跟哈希表了，还要 if-else 和 switch 干啥……

外一则：了解 Perl 的都知道丫有很多 内建特殊变量， 命名方式十分之诡异风骚，例如 $` 和 $’，正则匹配前后字符串。 一直忘了存有当前文件句柄的变量是啥，特地 Google， 答案是 $ARGV。