如何在bash中使用perl one liner？

Question

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

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

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

Answer 1

}{所谓的蝴蝶或爱斯基摩人的问候是由阿比盖尔于1997年发现的.

基本上它会关闭switch所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

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

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

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