perl使用xpath解析xml文件

leehunter

本事例展示使用XML::XPath解析xml文件.

employees.xml

1. <?xml version="1.0" encoding="utf-8" ?>
   
2. <employees>
   
3.     <employee age="30">
   
4.         <name>linux</name>
   
5.         <country>US</country>
   
6.     </employee>
   
7.     <employee age="10">
   
8.         <name>mac</name>
   
9.         <country>US</country>
   
10.     </employee>
    
11.     <employee age="20">
    
12.         <name>windows</name>
    
13.         <country>US</country>
    
14.     </employee>
    
15. </employees>

复制代码

train_xml.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use XML::XPath;
   
6. 
   
7. 
   
8. my $xp=XML::XPath->new(filename=>"employees.xml");
   
9. 
   
10. #测试节点
    
11. print $xp->exists('/employees/employee[@age="10"]/name'),"\n";
    
12. 
    
13. #获取节点值
    
14. print $xp->findvalue('/employees/employee[@age="10"]/name'),"\n";
    
15. 
    
16. #获取节点属性值
    
17. print $xp->findvalue('/employees/employee[1]/@age'),"\n";
    
18. 
    
19. #遍历节点
    
20. my $nodeset=$xp->find('/employees/employee');
    
21. foreach my $node ($nodeset->get_nodelist){
    
22.         print $node->findvalue("name"),"\n";
    
23. }

复制代码