我正在研究如何根据每个句子的长度对文件进行排序,我从这个answer中看到了这个片段
perl -ne 'push @a,$_ } { print sort { length $a <=> length $b } @a' input
^ ^
我测试了它并且它有效,但我不知道它是如何工作的！据我所知,语法错误.它有一个开放的右支架和一个我已标记的非封闭右支架.
我真的很难弄清楚如何在bash中运行这样的perl命令
有人可以解释这个片段吗？
最佳答案
} {是所谓的蝴蝶或Eskimo greeting由阿比盖尔发现,1997年.
原文链接：https://www.f2er.com/linux/440667.html基本上它在-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
