perl - Perl 单行代码末尾的 { 是什么意思？

Question

我看过这个单行本

perl -lane '$_{$F[0]}+=$F[1]}print"$_ $_{$_}"for keys%_;{' file

此处:How can I sum values in column based on the value in another column?

而且我不记得末尾的“{”是如何工作的。谁能解释一下它是如何工作的？

Answer 1

来自Perl help :

-n   assume "while (<>) { ... }" loop around program

This is purely a textual operation, so it gives this program:

while (<>) { $_{$F[0]}+=$F[1]}print"$_ $_{$_}"for keys%_;{ }

这是对 -n 开关的滥用，因为原始程序中的 } 不匹配导致 while 循环提前关闭。但是 -n 开关添加的结束 } 仍然需要匹配一些东西，这就是为什么需要额外的 {在程序结束时，即使它什么也没做。

换句话说，最后一个 { 存在的唯一原因是不给出语法错误。