如何使用Perl的XML :: LibXML提取标签中的属性？

发布时间：2020-12-15 21:51:55 所属栏目：大数据来源：网络整理

导读：我有一个 XML文件 PARENT TAG string1="asdf" string2="asdf" /TAG /PARENT 我想在这里提取string2值..而且我想将它设置为一个新值.. 怎么做？解决方法使用XPath表达式 use strict; use warnings; use XML::LibXML; use Data::Dumper; my $doc = XML::LibX

我有一个 XML文件

<PARENT >
<TAG string1="asdf" string2="asdf" >
</TAG >
</PARENT>

我想在这里提取string2值..而且我想将它设置为一个新值..

怎么做？

解决方法

使用XPath表达式

use strict;                                                                                                                      
use warnings;                                                                                                                    

use XML::LibXML;                                                                                                                 
use Data::Dumper;                                                                                                                

my $doc = XML::LibXML->new->parse_string(q{                                                                                      
<PARENT>                                                                                                                         
    <TAG string1="asdf" string2="asdfd">                                                                                         
    </TAG>                                                                                                                       
</PARENT>                                                                                                                        
});                                                                                                                              

my $xpath = '/PARENT/TAG/@string2';                                                                                              
# getting value of attribute:                                                                                                    
print Dumper $doc->findvalue($xpath);                                                                                            
my ($attr) = $doc->findnodes($xpath);                                                                                            

# setting new value:                                                                                                             
$attr->setValue('dfdsa');                                                                                                        
print Dumper $doc->findvalue($xpath);                                                                                            

# do following if you need to get string representation of your XML structure
print Dumper $doc->toString(1);

并阅读文档,当然:)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!