perl - 命令“打印所有以开头的行”

Question

我正在寻找一个 perl 命令，其中打印以字符串开头的行。例如，如果我想打印以“1234”开头的所有行，该命令会是什么样子？赛德？啊？格力普？

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