命令＆＃34;打印以＆＃34;开头的所有行

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")])'

Answer 2

perl -ne'print if /^1234/' file

但大多数人会使用grep。

grep ^1234 file

或在Windows上

findstr /r ^1234 file

Answer 3

完成：

sed -ne '/^1234/p' somefile
awk '/^1234/{print}' somefile
grep '^1234' somefile