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

xwt452701590

XML::Generator输出XML格式问题！！紧急求助！！
http://bbs.chinaunix.net/forum.p ... mp;fromuid=29383651
3楼大神提供的代码解决了只有一个$xml_rule_list_final的问题，感谢这位大神
但我现在如果循环产生不定数量的$xml_rule_list_final，然后我用push (@xml_rule_list,$xml_rule_list_final );把它们压到@xml_rule_list中，下面该怎么加循环处理才能出来正确的XML文档啊。备注：产生的文档里 @xml_rule_list里所有内容都得是host的子节点元素…………

xwt452701590

在线等帮助啊！

rubyish

biru:

1. my $xml = $gen->function(
   
2.     $gen->device("BJ-1"),
   
3.     map {
   
4.       $gen->rule_list(
   
5.         map {
   
6.           my %h = %$_;
   
7.           $gen->host(
   
8.             map { $gen->$_( $h{$_} ) } @host_key
   
9.           )
   
10.        } @host
    
11.      )
    
12.    } @xml_rule_list
    
13. );
    

复制代码

xwt452701590

回复 3# rubyish


    大神你好，你提供的代码解析不出来$interface_name,$interface_dir信息，
综合您给我的两次建议，我做了小修改，现在成功了：修改如下：

1. my $xml = $gen->function(
   
2.     $gen->device("BJ-1"),
   
3.     map {
   
4.              my ( $interface, @host ) = split /<host>/, $xml_rule_list_final;
   
5.               $interface =~ /me>\s*(.*?)<.*>(.*)</s;
   
6.             my ( $interface_name, $interface_dir ) =($1,$2);
   
7.            @host = map { { /<(\w+)>(.*?)</sg } } @host;
   
8.             $gen->rule_list(
   
9.                                      $gen->interface_name($interface_name),
   
10.                                      $gen->interface_dir($interface_dir),
    
11.                                   map {
    
12.                                       my %h = %$_;
    
13.                                      $gen->host(
    
14.                                                        map { $gen->$_( $h{$_} ) } @host_key
    
15.                                                       )
    
16.                                          } @host
    
17.                                   )
    
18.            } @xml_rule_list
    
19. );
    

复制代码

再次感谢您的帮助！