请教：perl生成XML文档时如何调用变量

capfsxl

#!/usr/bin/perl
use strict;
use warnings;
use XML::Generator;
my ($xml, $output, $run_config, $config, $output_file,@acl_rule,$acl_rule,$per_text);
$run_config="rule deny 192.168.1.1  0.0.0.255
rule deny 192.168.2.1  0.0.0.128
rule permit any";
@acl_rule = split (/\n/,$run_config);
for (my $i=0; $i<@acl_rule; $i++){
     $per_text .="\$xml->rule('$acl_rule[$i]'),\n";
}

$xml = new XML::Generator ('conformance' => 'strict',    'escape' => 'always',    'pretty' => 3,  'encoding'=>'GBK');
$output = $xml->function ({ 'funcname' => 'acl_black_list', 'mode' => 'predefined','no' => 'no'},
$xml->task_name('20130502152226_815403777'),
$xml->device(
         $xml->device_name ('202.197.12.200'),
         $xml->interface_name('GigabitEthernet0/0/2'),
         $xml->rule_list(
                   $per_text;      ???????????????????????????
         )
     )
);
print $xml->xmldecl."$output";


问号前的变量$per_text是前面循环出来的xml格式的字符串，但不知怎么调用，烦请解答！

capfsxl

有大侠吗？

capfsxl

求助，求助，感谢各位帮帮忙啊！！！

capfsxl

$xml->rule('rule deny 192.168.1.1 0.0.0.255'),里面的“>”在调用时被认为是大于号，在xml显示$xml-&gt;rule('rule deny 192.168.1.1 0.0.0.255'),所以不能正确生成xml，怎么才能不认为是大于号呢？

capfsxl

经师兄指点，去掉'conformance' => 'strict',    'escape' => 'always',  可以调用参数，但头部显示又有了问题，不显示版本号了！何故？？

capfsxl

国庆了，祝福各位节日快乐！

capfsxl

还是用perl的多啊，大家都没过节吗？？？

capfsxl

perl，早安！假期进入第三天了，抓紧时间玩啊！

104359176

字符串内插变量， 要用双引号引起。在上下文中，变量都是有效的。

capfsxl

回复 9# 104359176

感谢假期里无私奉献的朋友！不是双引号的问题，现在注释掉'conformance' => 'strict',    'escape' => 'always' 就可以调用了，但xml的版本号那一行没了，不知怎么解决？