html - 如何使用 Perl 在 HTML 的第 2 段和第 3 段之间插入内容？

Question

我正在尝试匹配第 2 段和第 3 段之间的点以插入一些内容。段落由 <p> 分隔或 2 个换行符，混合。这是一个例子:

text text text text
text text text text

<p>
text text text text
text text text text
</p>
<--------------------------- want to insert text here
<p>
text text text text
text text text text
</p>

Answer 1

假设没有嵌套段落...

my $to_insert = get_thing_to_insert();
$text =~ s/((?:<p>.*?</p>|\n\n){2})/$1$to_insert/s;

应该就可以了。

使用扩展格式:

$text =~ s{
    (             # a group
        (?:       # containing ...
            <p>   # the start of a paragraph
            .*?   # to...
            </p>  # its closing tag
        |         # OR...
           \n\n   # two newlines alone. 
        ){2}      # twice
    )             # and take all of that...
}
{$1$to_insert}xms # and append $val to it

注意，我用\n\n作为分隔符；如果您使用的是 Windows 样式的文本文件，则需要为 \r\n\r\n ，或者如果它可能是混合的，类似于 \r?\n\r?\n制作 \r可选。

另请注意，因为 '\n\n' 在 | 之后, <p> block 中可以有双换行符 - <p>至 </p>优先考虑。如果你想在 <p> 中换行优先考虑，交换它们。