命令"打印所有行开头"

Question

我正在寻找一个perl命令,其中打印以字符串开头的行.例如,如果我想打印以"1234"开头的所有行,该命令会是什么样的？桑达？AWK？grep的？

Answer 1

perl -ne 'print if /^1234/' 

要么

sed -ne '/^1234/p'

要么

awk '/^1234/'

要么

grep '^1234'

要么

ruby -ne 'print if /^1234/'

甚至

python -c 'import fileinput;print "\n".join([l for l in fileinput.input() if l.startswith("1234")])'