regex - 如何在 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;