多行查找（grapping）並用perl替換XML文件中的文本

Question

這裏我試圖用perl正則表達式在一個XML文件中查找和替換文本內容。

示例XML代碼：

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

現在我想找到<add>/grep的文字</add>和替換<xyz> XXX </xyz>

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

注：

如果以上內容是單行我的意思是在<add>到</add>之間沒有換行符，a s <add><st>xxxx</st><pin>xxx</pin></add>我可以使用<add>(.*)<\/add>來查找/ grep。

---

感謝你

Thirusanguraja V

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 ;