如何在bash中使用perl one liner？

Question

我正在研究如何根据每个句子的长度对文件进行排序，我从这个answer

中看到了这个片段

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

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

Answer 1

1997年，

}{被称为蝴蝶或Eskimo greeting由阿比盖尔发现。

基本上它会关闭while开关强加的-n循环，而}{后面的内容是在while循环后执行的块。

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

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

---

LINE: while (defined($_ = <ARGV>)) {
    push @a, $_;
}{ # <==here it is

    print((sort {length $a <=> length $b;} @a));
}

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

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

Answer 2

SzG的答案是正确的：脚本有效，因为-n开关导致Perl 字面上将代码包装在以下循环中：

LINE: while (<>) { # code goes here
;}

在编译之前。因此，您的示例代码变为：

LINE: while (<>) { push @a, $_ } { print sort { length $a <=> length $b } @a
;}

这是一个完全有效的Perl脚本。

---

无论如何，编写该脚本的方法不那么简单：

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

甚至只是：

perl -e 'print sort { length $a <=> length $b } <>' input

Answer 3

使用-e script选项运行在命令行上指定的Perl脚本。 如果您还添加-n选项，Perl将使用

包围脚本

while(<>) {
    your-script-here
}

循环，逐行读取指定文件的标准输入。