perl 单线像 grep？答案

【问题标题】：perl one-liner like grep?perl 单线像 grep？
【发布时间】：2011-06-15 05:09:07
【问题描述】：

我想让 perl 做一个像 grep 这样的单行代码

有点像这样，但我不确定要添加什么才能使其正常工作

$ (echo a ; echo b ; echo c) | perl -e 'a'

【问题讨论】：

【解决方案1】：

回应暴民的评论：

如果你想使用 Perl 正则表达式，试试 ack: http://betterthangrep.com/

【讨论】：

ack 是 perl，但包装得很好很漂亮
@barlop 这是ack '^\S+foo\s' 和perl -wlne 'm{^\S+foo\s} and print' 之间的区别——所以每次我为此使用ack 而不是perl 时大约节省了大约20 个字符。同样，当 Perl 显示结果时，它不使用任何颜色，而 ack 对输出进行着色，类似于 grep。
@NoahSussman 很有趣.. 我对 sed 的“s...”有两个问题，即 sed 替换是它是逐行的，没有二进制模式。我猜 ack 没有这些限制？另外，ack 能否击败 sed 打印第 n 行 (echo a & echo b) | sed -n "2p" 的能力？

【解决方案2】：

如果你能负担得起其他选择，你也可以用 Ruby 做同样的事情

$ (echo a; echo b; echo c) | ruby -ne 'print if /a/'
a
$ (echo a; echo b; echo c) | ruby -ne 'print if $_["a"]'
a

【讨论】：

【解决方案3】：

(echo a; echo b; echo c) | perl -ne 'print if /a/'

【讨论】：

如果您需要两个条件，请尝试| perl -ne 'print if /a/ || /b/' 或| perl -ne 'print if /(a|b)/'。在 5gb 的 csv 上，捕获组快了大约 10%。在正常尺寸数据上，差异是难以察觉的。我发现||“或”样式更具可读性。