如何在Perl脚本中查找和替换多行？

Question

我试着编写一个perl脚本，用我想要的一些文本替换多行。我写了以下几行，但没有用。

s/<cl:doc-meta>(.*)<\/cl:doc-meta>/something/gi;

这就是我想要找到和替换的内容

<cl:doc-met>

<cl:title></cl:title>

<cl:isbn length="13"></cl:isbn>

</cl:doc-meta>

请建议我怎么做？提前谢谢。

Answer 1

使用修饰符“s” - 将其视为单行。

$string =~ s/<cl:doc-meta>(.*)<\/cl:doc-meta>/something/sg;