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