perl如何生成XML已有节点的父节点啊

xwt452701590

我的源码为：
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>

请问各位大神怎么加循环啊？？或者怎么生成父节点或子节点呢？
跪谢啊！！！

xwt452701590

在线等啊！！！！没大神懂吗？？

xwt452701590

好吧，我自己解决了——————，把子节点赋给个变量即可————

xwt452701590

新的问题出现了————为什么修改好代码后，<、>这两个符号不识别了————成了&lt,&gt