linux – 这个perl中的perl如何运行？

我正在研究如何根据每个句子的长度对文件进行排序,我从这个answer中看到了这个片段

perl -ne 'push @a,$_ } { print sort { length $a <=> length $b } @a' input
                      ^ ^  

我测试了它并且它有效,但我不知道它是如何工作的！据我所知,语法错误.它有一个开放的右支架和一个我已标记的非封闭右支架.
我真的很难弄清楚如何在bash中运行这样的perl命令
有人可以解释这个片段吗？

最佳答案

} {是所谓的蝴蝶或Eskimo greeting由阿比盖尔发现,1997年.

基本上它在-n开关强加的循环时关闭,接下来是} {在while循环后执行的块.

这就是perl解析这一行的方式,

perl -MO=Deparse -ne 'push @a,$_ } { print sort { length $a <=> length $b } @a' input

LINE: while (defined($_ = 

更常见的方法是使用END{}块而不是} {operator：

perl -ne '
  push @a,$_ 
  END { 
    print sort { length $a <=> length $b } @a
  }
' input