主页 / ubuntu / 问题 / 1294664
Accepted
Mario Palumbo
Asked: 2020-11-24 06:27:47 +0800 CST

perl 命令：仅在第一次出现时附加一行文本

  • 772

我有这个输入文件：

text1
match
text2
match
text3

我有在匹配之前插入一行的命令：

perl -lpe 'print "prepend_me" if /^match$/ && ++$i == 1' text.txt

它的输出是：

text1
prepend_me
match
text2
match
text3

现在我想要在匹配后插入一行的命令：

text1
match
append_me
text2
match
text3

我怎么得到这个？

bash perl

1 个回答

  1. Best Answer

    您可以将字符串连接与默认$_变量一起使用：

    $ perl -lpe '$_ .= "\nappend_me" if /^match$/ && ++$i == 1' text.txt
text1
match
append_me
text2
match
text3

    或者，使用-ne和显式print

    perl -lne 'print; print "append_me" if /^match$/ && ++$i == 1' text.txt
    • 1

相关问题