怎么取XML script 中的在两个tag之间的字母或数字？急！

lgjut

tie xml

deathcult

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use XML::Simple;
   
5. $text = <<xml;
   
6. <?xml version="1.0"?>;
   
7. <order>;
   
8. <product>;wid100</product>;
   
9. <quantity>;10</quantity>;
   
10. <product>;giz375</product>;
    
11. <quantity>;30</quantity>;
    
12. <product>;wid100</product>;
    
13. <quantity>;30</quantity>;
    
14. <product>;giz375</product>;
    
15. <quantity>;30</quantity>;
    
16. </order>;
    
17. xml
    
18. 
    
19. $x = XMLin($text);
    
20. foreach $tag(keys %$x)
    
21. {               
    
22.         foreach(@{$$x{$tag}})
    
23.         {               
    
24.                 print "$tag =>; ";
    
25.                 print "$_\n";
    
26.         }
    
27. }
    

复制代码