perl如何指定父节点啊

shizi 发布于 2013/12/14 14:45
阅读 84
收藏 0
我的源码为:
use XML::Generator;
while(/...../g)
{.....
  #print $interface_name;(此处循环得到一系列值)
  while(/……。/g)   
     {……
    #print $protocol_type;(此处循环又得到一系列值)
   print   my $gen->host($gen->protocol_type($protocol_type)
                          )
     }
}
此时生成格式为:<host>
                           <protocol_type>$protocol_type</protocol_type>
                            ...
                      </host>
                       ......
                      <host>
                            ........
                      </host>
但我想将$interface_name元素也加入其中,生成这种格式:
                   <rule_list>
                       <interface_name>$interface_name</interface_name>
                       <host>
                           <protocol_type>$protocol_type</protocol_type>
                            ...
                      </host>
                       ......
                      <host>
                            ........
                      </host>
                   </rule_list>

请问各位大神怎么加循环啊??或者怎么生成父节点或子节点呢?
跪谢啊!!!
加载中
返回顶部
顶部