perl单线像grep？

Question

我希望perl像grep

这样做一个单行程

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

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

ADDED 我在这里的答案涵盖了更多内容 https://superuser.com/questions/416419/perl-for-matching-with-regex-in-terminal

Answer 1

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

Answer 2

回应暴徒的评论：

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

Answer 3

如果你能负担得起其他选择，你可以用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