perl删除xml的某一段

top50

例如：
<a>
<b name="张三">
<c>
        <e id=15></e>
</c>
</b>
<b name="李四">
<c>
        <e id=20></e>
</c>
</b>
</a>



怎么删除指定name为某个值的整个字段

例如删除张三

就删除
<b name="张三">
<c>
        <e id=15></e>
</c>
</b>

kk861123

回复 1# top50


也许用正则可以删掉，但是安全点还是乖乖的先用模块解析成perl的hash结构，然后通过遍历删除掉指定属性的key/value对，最后再用模块还原回xml。

top50

kk861123 发表于 2012-11-29 21:29
回复 1# top50

求大神详细指导！多谢

kk861123

XML::Simple 就够了

mcshell

针对你现有的结构可以这样,不过还是用模块稳妥。

1. while(<DATA>){
   
2.     my $name = "张三";
   
3.     next  if(/<b[^"]+"$name">/../<\/b>/);
   
4. print $_;
   
5. }
   
6. __DATA__
   
7. <a>
   
8. <b name="张三">
   
9. <c>
   
10.         <e id=15></e>
    
11. </c>
    
12. </b>
    
13. <b name="李四">
    
14. <c>
    
15.         <e id=20></e>
    
16. </c>
    
17. </b>
    
18. </a>
    

复制代码