在perl中的START和END字符串之间替换文本（不包括END字符串）

Question

我正在网上浏览有关使用perl查找和替换两个字符串（例如START和END）之间的文本的示例和问题。 而且我通过提供的解决方案成功做到了这一点。 在这种情况下，我的START和END也包含在替换文本中。 我使用的语法是s/START(.*?)END/replace_text/s用于替换START和END之间的多行，但是在首次出现END时停止替换。

但是我想知道如何仅在perl中替换START和END之间的文本（不包括END）。

之前：

START
I am learning patten matching.
I am using perl.
END

后：

Successfully replaced.
END

Answer 1

要执行检查但避免匹配字符，可以使用正向向前看 ：

s/START.*?(?=END)/replace_text/s

Answer 2

一种解决方案是捕获END ，并在替换文本中使用它。

s/START(.*?)(END)/replace_text$2/s

Answer 3

另一个选择是使用范围运算符..忽略输入的每一行，直到找到一个块的结束标记，然后输出替换字符串和结束标记：

#!/usr/bin/perl

use strict;
use warnings;

my $rep_str = 'Successfully replaced.';

while (<>) {
    my $switch = m/^START/ .. /^END/;
    print unless $switch;
    print "$rep_str\n$_" if $switch =~ m/E0$/;
}

---

使其适应字符串数组是很容易的：

foreach (@strings) {
     my $switch = ...
     ...
}

Answer 4

要使用环顾断言，您需要重新定义输入记录分隔符（ $/ ）（请参阅perlvar ），也许将while文件存储到内存中。 为了避免这种情况， 范围 （“触发器”）运算符非常有用：

while (<>) {
    if (/^START/../^END/) {
        next unless m{^END};
        print "substituted_text\n";
        print;
    }
    else {
        print;
    }
}

上面的代码保留了输出中START / END块之前或之后的所有行。