使用 perl 在两行之间插入新行

Question

我想在第 2 行和第 3 行之间插入包含此行

abc
abcd:
abc
abcd

输出中的连接字符串的行：

abc
abcd:
abcd: abcd
abc
abcd

Answer 1

您想在以冒号结尾的行之后或第 2 行之后添加一些内容吗？

如果在第 2 行之后，您可以 split("\n", $string) 获取行数组，将新行拼接到数组的位置 2 中，然后 join(" \n", @array) 来获取字符串。

如果在以冒号结尾的行之后，您可以使用正则表达式：s/(:\n)/\1YOUR_NEW_LINE_HERE\n/。

Answer 2

由于您没有指定要在以冒号结尾的每一行后面放置的内容，因此我创建了一个表来代表一些通用决策和稍微灵活的处理。

# create a table
my %insert_after 
    = ( abcd => "abcd: abcd\n"
      , defg => "defg: hijk\n"
      );

# create a list of keys longest first, and then lexicographic 
my $regs  
    = '^(' 
    . join( '|', sort { length $b <=> length $a or $a cmp $b } 
                 keys %insert_after 
          )
    . '):
在当前行之后“插入”一行就像将该文本附加到当前行并输出一样简单。

    ;
my $regex = qr/$regs/;

# process lines.
while ( <> ) { 
    m/$regex/ and $_ .= $insert_after{ $1 } // '';
    print;
}

在当前行之后“插入”一行就像将该文本附加到当前行并输出一样简单。

Answer 3

perl -p -i.bck -e "if ($last ne ''){ $_=~s/.*/$last 
amp;\\n
amp;/; $last=''} elsif (/:/) {$last = $_;chomp($last);} else {$last = '';}" test

test 是有问题的文件