請教：perl生成XML文檔時如何調(diào)用變量

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是前面循環(huán)出來的xml格式的字符串，但不知怎么調(diào)用，煩請解答！

capfsxl

有大俠嗎？

capfsxl

求助，求助，感謝各位幫幫忙�。。�！

capfsxl

$xml->rule('rule deny 192.168.1.1 0.0.0.255'),里面的“>”在調(diào)用時被認為是大于號，在xml顯示$xml-&gt;rule('rule deny 192.168.1.1 0.0.0.255'),所以不能正確生成xml，怎么才能不認為是大于號呢？

capfsxl

經(jīng)師兄指點，去掉'conformance' => 'strict',    'escape' => 'always',  可以調(diào)用參數(shù)，但頭部顯示又有了問題，不顯示版本號了！何故？？

capfsxl

國慶了，祝福各位節(jié)日快樂！

capfsxl

還是用perl的多啊，大家都沒過節(jié)嗎？？？

capfsxl

perl，早安！假期進入第三天了，抓緊時間玩��！

104359176

字符串內(nèi)插變量， 要用雙引號引起。在上下文中，變量都是有效的。

capfsxl

回復(fù) 9# 104359176

感謝假期里無私奉獻的朋友！不是雙引號的問題，現(xiàn)在注釋掉'conformance' => 'strict',    'escape' => 'always' 就可以調(diào)用了，但xml的版本號那一行沒了，不知怎么解決？