XML::Generator输出XML格式问题！！紧急求助！！

xwt452701590

1. #! user/bin/perl -w
   
2. use XML::Generator;
   
3. my $xml_rule_list_final="<rule_list>
   
4.   <interface_name> fastethernet0/0/3</interface_name>
   
5.   <interface_dir>in</interface_dir>
   
6.   <host>
   
7.     <operator>deny</operator>
   
8.     <protocol_type>ip</protocol_type>
   
9.     <des_ip>192.168.45.0</des_ip>
   
10.     <des_mask>0.0.0.255</des_mask>
    
11.     <des_operator>eq</des_operator>
    
12.     <des_port>80</des_port>
    
13.     <sou_ip>192.168.1.0</sou_ip>
    
14.     <sou_mask>0.0.0.255</sou_mask>
    
15.     <sou_operator>eq</sou_operator>
    
16.     <sou_port>80</sou_port>
    
17.   </host>
    
18.   <host>
    
19.     <operator>permit</operator>
    
20.     <protocol_type>tcp</protocol_type>
    
21.     <des_ip>192.168.4.0</des_ip>
    
22.     <des_mask>0.0.0.255</des_mask>
    
23.     <des_operator>range</des_operator>
    
24.     <des_port>56-78</des_port>
    
25.     <sou_ip>192.168.12.0</sou_ip>
    
26.     <sou_mask>0.0.0.255</sou_mask>
    
27.     <sou_operator>lt</sou_operator>
    
28.     <sou_port>23</sou_port>
    
29.   </host>
    
30.   <host>
    
31.     <operator>deny</operator>
    
32.     <protocol_type>ip</protocol_type>
    
33.     <des_ip>0.0.0.0</des_ip>
    
34.     <des_mask>255.255.255.255</des_mask>
    
35.     <des_operator>eq</des_operator>
    
36.     <des_port>80</des_port>
    
37.     <sou_ip>10.10.10.0</sou_ip>
    
38.     <sou_mask>0.0.0.255</sou_mask>
    
39.     <sou_operator>eq</sou_operator>
    
40.     <sou_port>80</sou_port>
    
41.   </host>
    
42. </rule_list>";
    
43. 
    
44. my $gen=XML::Generator->new('escape'=>'always','pretty'=>2,'encoding'=>'utf-8');
    
45. my $function=$gen->function( $gen->device("BJ-1"),
    
46.                                              $xml_rule_list_final
    
47.                                            );
    
48.                        
    
49. open CONFIGFILE,'>',"./out1.xml";
    
50. print CONFIGFILE $function;
    
51. close CONFIGFILE;
    
52. print "./out1.xml";

复制代码

运行后，打开out1.xml后，格式就混在一起了————

1. <function>
   
2.   <device>BJ-1</device>
   
3.   <rule_list><interface_name> fastethernet0/0/3</interface_name><interface_dir>in</interface_dir><host>
   
4.   <operator>deny</operator><protocol_type>ip</protocol_type><des_ip>192.168.45.0</des_ip><des_mask>0.0.0.255</des_mask>
   
5.   <des_operator>eq</des_operator><des_port>80</des_port><sou_ip>192.168.1.0</sou_ip><sou_mask>0.0.0.255</sou_mask>
   
6.   <sou_operator>eq</sou_operator><sou_port>80</sou_port></host><host><operator>permit</operator>
   
7.   <protocol_type>tcp</protocol_type><des_ip>192.168.4.0</des_ip><des_mask>0.0.0.255</des_mask>
   
8.   <des_operator>range</des_operator><des_port>5678</des_port><sou_ip>192.168.12.0</sou_ip>
   
9.   <sou_mask>0.0.0.255</sou_mask><sou_operator>lt</sou_operator><sou_port>23</sou_port>
   
10.   </host><host></rule_list>
    
11. </function>

复制代码

可是，当我把XML文档的内容粘到TXT下后——，又有层次了————
这是什么原因啊？？？该怎么解决啊！！！！
跪求大神

xwt452701590

追加说明：
该代码如果不输出到XML文件，直接print在终端上后，< 和>号会不识别，如图：

1. <function>
   
2.   <device>BJ-1</device>&lt;rule_list&gt;
   
3.   &lt;interface_name&gt; fastethernet0/0/3&lt;/interface_name&gt;
   
4.   &lt;interface_dir&gt;in&lt;/interface_dir&gt;
   
5.   &lt;host&gt;
   
6.     &lt;operator&gt;deny&lt;/operator&gt;
   
7.     &lt;protocol_type&gt;ip&lt;/protocol_type&gt;
   
8.     &lt;des_ip&gt;192.168.45.0&lt;/des_ip&gt;
   
9.     &lt;des_mask&gt;0.0.0.255&lt;/des_mask&gt;
   
10.     &lt;des_operator&gt;eq&lt;/des_operator&gt;
    
11.     &lt;des_port&gt;80&lt;/des_port&gt;
    
12.     &lt;sou_ip&gt;192.168.1.0&lt;/sou_ip&gt;
    
13.     &lt;sou_mask&gt;0.0.0.255&lt;/sou_mask&gt;
    
14.     &lt;sou_operator&gt;eq&lt;/sou_operator&gt;
    
15.     &lt;sou_port&gt;80&lt;/sou_port&gt;
    
16.   &lt;/host&gt;
    
17.   &lt;host&gt;
    
18.     &lt;operator&gt;permit&lt;/operator&gt;
    
19.     &lt;protocol_type&gt;tcp&lt;/protocol_type&gt;
    
20.     &lt;des_ip&gt;192.168.4.0&lt;/des_ip&gt;
    
21.     &lt;des_mask&gt;0.0.0.255&lt;/des_mask&gt;
    
22.     &lt;des_operator&gt;range&lt;/des_operator&gt;
    
23.     &lt;des_port&gt;56-78&lt;/des_port&gt;
    
24.     &lt;sou_ip&gt;192.168.12.0&lt;/sou_ip&gt;
    
25.     &lt;sou_mask&gt;0.0.0.255&lt;/sou_mask&gt;
    
26.     &lt;sou_operator&gt;lt&lt;/sou_operator&gt;
    
27.     &lt;sou_port&gt;23&lt;/sou_port&gt;
    
28.   &lt;/host&gt;
    
29.   &lt;host&gt;
    
30.     &lt;operator&gt;deny&lt;/operator&gt;
    
31.     &lt;protocol_type&gt;ip&lt;/protocol_type&gt;
    
32.     &lt;des_ip&gt;0.0.0.0&lt;/des_ip&gt;
    
33.     &lt;des_mask&gt;255.255.255.255&lt;/des_mask&gt;
    
34.     &lt;des_operator&gt;eq&lt;/des_operator&gt;
    
35.     &lt;des_port&gt;80&lt;/des_port&gt;
    
36.     &lt;sou_ip&gt;10.10.10.0&lt;/sou_ip&gt;
    
37.     &lt;sou_mask&gt;0.0.0.255&lt;/sou_mask&gt;
    
38.     &lt;sou_operator&gt;eq&lt;/sou_operator&gt;
    
39.     &lt;sou_port&gt;80&lt;/sou_port&gt;
    
40.   &lt;/host&gt;
    
41. &lt;/rule_list&gt;
    
42. </function>

复制代码

为什么啊

rubyish

错误的用法~ )
xml 与 hash 类似,一个一个 key, value.
biru:

1. $gen->device("BJ-1"),

复制代码

key : device
value: "BJ-1"
line 45~47

1. my $function=$gen->function( $gen->device("BJ-1"),
   
2.                                              $xml_rule_list_final
   
3.                                            );

复制代码

你这样做是类似下面的代码:

1. my %hash;
   
2. my $value = '{ a => 1, b => 2 }';
   
3. $hash{key} = $value;
   

复制代码

now 你想要

1. print $hash{key}{a};

复制代码

你想输出为什么不是 1 呢？

'{ a => 1, b => 2 }' 看起来类似 hash ref, 但它不

该怎么解决?
1: 手动编辑(copy, paste) + 格式化
可以copy过去一个XML字符串
paste,并将它格式化.
XML格式化工具,在
http://www.freeformatter.com/xml-formatter.html

2: dosomething
biru:

1. use XML::Generator;
   
2. my $xml_rule_list_final = "<rule_list>
   
3.   <interface_name> fastethernet0/0/3</interface_name>
   
4.   <interface_dir>in</interface_dir>
   
5.   <host>
   
6.     <operator>deny</operator>
   
7.     <protocol_type>ip</protocol_type>
   
8.     <des_ip>192.168.45.0</des_ip>
   
9.     <des_mask>0.0.0.255</des_mask>
   
10.     <des_operator>eq</des_operator>
    
11.     <des_port>80</des_port>
    
12.     <sou_ip>192.168.1.0</sou_ip>
    
13.     <sou_mask>0.0.0.255</sou_mask>
    
14.     <sou_operator>eq</sou_operator>
    
15.     <sou_port>80</sou_port>
    
16.   </host>
    
17.   <host>
    
18.     <operator>permit</operator>
    
19.     <protocol_type>tcp</protocol_type>
    
20.     <des_ip>192.168.4.0</des_ip>
    
21.     <des_mask>0.0.0.255</des_mask>
    
22.     <des_operator>range</des_operator>
    
23.     <des_port>56-78</des_port>
    
24.     <sou_ip>192.168.12.0</sou_ip>
    
25.     <sou_mask>0.0.0.255</sou_mask>
    
26.     <sou_operator>lt</sou_operator>
    
27.     <sou_port>23</sou_port>
    
28.   </host>
    
29.   <host>
    
30.     <operator>deny</operator>
    
31.     <protocol_type>ip</protocol_type>
    
32.     <des_ip>0.0.0.0</des_ip>
    
33.     <des_mask>255.255.255.255</des_mask>
    
34.     <des_operator>eq</des_operator>
    
35.     <des_port>80</des_port>
    
36.     <sou_ip>10.10.10.0</sou_ip>
    
37.     <sou_mask>0.0.0.255</sou_mask>
    
38.     <sou_operator>eq</sou_operator>
    
39.     <sou_port>80</sou_port>
    
40.   </host>
    
41. </rule_list>";
    
42. 
    
43. my ( $interface, @host ) = split /<host>/, $xml_rule_list_final;
    
44. my ( $interface_name, $interface_dir ) =
    
45.   $interface =~ /me>\s*(.*?)<.*>(.*)</s;
    
46. @host = map { { /<(\w+)>(.*?)</sg } } @host;
    
47. 
    
48. my @host_key = qw/operator
    
49.   protocol_type
    
50.   des_ip
    
51.   des_mask
    
52.   des_operator
    
53.   des_port
    
54.   sou_ip
    
55.   sou_mask
    
56.   sou_operator
    
57.   sou_port/;
    
58. 
    
59. my $gen = new XML::Generator(
    
60.     'conformance' => 'strict',
    
61.     'escape'      => 'always',
    
62.     'pretty'      => 2,
    
63.     'encoding'    => 'utf-8'
    
64. );
    
65. 
    
66. my $xml = $gen->function(
    
67.     $gen->device("BJ-1"),
    
68.     $gen->rule_list(
    
69.         $gen->interface_name($interface_name),
    
70.         $gen->interface_dir($interface_dir),
    
71.         map {
    
72.             my %h = %$_;
    
73.             $gen->host( map { $gen->$_( $h{$_} ) } @host_key )
    
74.         } @host
    
75.     )
    
76. );
    
77. 
    
78. print $gen->xmldecl;
    
79. print $xml;

复制代码

xwt452701590

问题解决了！！！！！！！！！！感谢上楼！！不会@————嘿嘿