优化有酬劳，如何读取XML同名标签个数不确定里的内容？

iamlimeng

1. #!/usr/bin/perl
   
2. use strict;
   
3. use XML::Simple qw(XMLin);
   
4. my $device_num = $ARGV[0];
   
5. my @lines = <DATA>;
   
6. my $text = join '', @lines;
   
7. my $xml_data = XMLin($text);
   
8. my $device_list  = $xml_data->{device};
   
9. my $device_times = ref ($device_list) eq ref ([]) ? scalar(@$device_list) : 1;
   
10. 
    
11. if ($device_num > $device_times) { print "Out of device scope, supply right device num pls!\n"; }
    
12. else {
    
13. my $device_name = ($device_times == 1)?$device_list->{device_name}:$xml_data->{device}[$device_num-1]->{device_name};
    
14. my $config = <<END;
    
15. system-view
    
16. ip router $device_name
    
17. undo shutdown
    
18. return
    
19. END
    
20. print $config;
    
21. }
    
22. <>;
    
23. 
    
24. __DATA__
    
25. <function funcname="gray_list" mode="predefined" no="no">
    
26.   <task_name>20130506113902_989513309</task_name>
    
27.   <device>
    
28.     <device_name>202.197.12.199</device_name>
    
29.     <interface_name>gei-0/2</interface_name>
    
30.     <commited_information_rate>5000</commited_information_rate>
    
31.     <host>
    
32.       <ip>192.168.1.1</ip>
    
33.       <mask>255.255.255.0</mask>
    
34.     </host>
    
35.   </device>
    
36.   <device>
    
37.     <device_name>202.197.12.200</device_name>
    
38.     <interface_name>gei-0/2</interface_name>
    
39.     <commited_information_rate>5000</commited_information_rate>
    
40.     <host>
    
41.       <ip>192.168.1.1</ip>
    
42.       <mask>255.255.255.0</mask>
    
43.     </host>
    
44.   </device>
    
45. </function>

复制代码

楼主想要的可能是这个，把话费给我吧！

capfsxl

回复 10# 104359176

感谢您的及时回复，我的这个问题必须要判断吗？有没有一种不用判断的通式？因为一旦有判断，深度越深，就越繁琐，三级深度，就有8种情况，我想简化的就是不进行判断！
   

capfsxl

回复 11# iamlimeng

感谢您的详细解答，你的方法我之前也用过，单从这个例子来讲，这样的方法是简化了，少写一个$config，但我要从XML文档读取的东西非常多，END与END之间的东西并不多，最大的问题是再增加深度，判断的次数级数次增长，比如我还取不确定几个<host>里面的内容，最想优化的就是不进行判断，能否？能消息于我你的微信吗？
   

iamlimeng

回复 13# capfsxl

我隐隐约约明白了你的意思，你应该希望提取出来的数据都是数组，这样就不用判断某个键下是一个元素，还是多个，下面是例程，希望能帮到你。但你同样面临输入的device_num超出数据范围的问题，这个还是要加判断的。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use XML::Simple qw(XMLin);
   
5. my $device_num = $ARGV[0];
   
6. my @lines = <DATA>;
   
7. my $text = join '', @lines;
   
8. my $xml_data = XMLin($text,ForceArray =>1);
   
9. 
   
10. my $device_name = $xml_data->{device}[$device_num-1]->{device_name}[0];
    
11. my $config = <<END;
    
12. system-view
    
13. ip router $device_name
    
14. undo shutdown
    
15. return
    
16. END
    
17. print $config;
    
18. <>;
    
19. 
    
20. __DATA__
    
21. <function funcname="gray_list" mode="predefined" no="no">
    
22.   <task_name>20130506113902_989513309</task_name>
    
23.   <device>
    
24.     <device_name>202.197.12.199</device_name>
    
25.     <interface_name>gei-0/2</interface_name>
    
26.     <commited_information_rate>5000</commited_information_rate>
    
27.     <host>
    
28.       <ip>192.168.1.1</ip>
    
29.       <mask>255.255.255.0</mask>
    
30.     </host>
    
31.   </device>
    
32.   <device>
    
33.     <device_name>202.197.12.200</device_name>
    
34.     <interface_name>gei-0/2</interface_name>
    
35.     <commited_information_rate>5000</commited_information_rate>
    
36.     <host>
    
37.       <ip>192.168.1.1</ip>
    
38.       <mask>255.255.255.0</mask>
    
39.     </host>
    
40.   </device>
    
41. </function>

复制代码

104359176

回复 12# capfsxl


    必须要判断，但要用递归，注意我的代码，和深度无关，其实这个问题有一个另类的解决办法。就是将 YAML 的格式进行处理：




C:\Documents and Settings\Administrator\桌面>cmd
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Administrator\桌面>perl Parse-xml.pl
---
device:
  - commited_information_rate: 5000
    device_name: 202.197.12.199
    host:
      - ip: 192.168.1.1
        mask: 255.255.255.0
      - ip: 192.168.45.115
        mask: 255.255.255.0
      - ip: 192.168.54.112
        mask: 255.255.255.0
    interface_name: gei-0/2
  - commited_information_rate: 10000
    device_name: 202.197.12.200
    host:
      - ip: 172.168.2.1
        mask: 255.255.255.0
      - ip: 172.168.2.15
        mask: 255.255.255.0
      - ip: 172.168.5.12
        mask: 255.255.255.0
    interface_name: gei-0/1
funcname: gray_list
mode: predefined
no: no
task_name: 20130506113902_989513309

Tag:< device> occur 2 times
Tag:<device ->  host> occur 3 times
Tag:<device ->  host> occur 3 times

C:\Documents and Settings\Administrator\桌面>

斯文牛氓

我晕 怎么跑这里来呃了

capfsxl

已采用14楼的优化方案，感谢各位的热情帮助！

ulmer

回复 1# capfsxl
你应该多了解一下perl的数据结构， 包括array和hash的引用，以及复杂数据结构的构造。
再读一下 XML::Simple 的文档资料 perldoc XML::Simple.
资料例子中的Tag <server 。。> 和你的<device>相吻合。