regex - 多行查找（抓取）并使用 perl 替换 XML 文件中的文本

Question

在这里，我尝试使用 perl 正则表达式在一个 XML 文件中查找和替换文本内容。

示例 XML 代码：

<root>
<add>
<st>xxxx</st>
<pin>xxx</pin>
</add>
</root>

现在我想从 to 中查找 / grep 文本<add>并</add>替换<xyz>xxx</xyz>

<add>
<st>xxxx</st>
<pin>xxx</pin>
</add>

笔记：

<add>如果上述内容在单行中，我的意思是在to之间没有换行符</add>，因为<add><st>xxxx</st><pin>xxx</pin></add>我可以<add>(.*)<\/add>用来查找 / grep。

---

感谢您

蒂鲁桑古拉亚五世

Answer 1

使用XML::XSH2，一个围绕XML::LibXML的包装器：

open input.xml ;
$add = /root/add ;
delete $add/* ;
insert element xyz into $add ;
insert text 'xxx' into $add/xyz ;
save :b ;