请教：如何将standalone="yes"改成encoding="GBK"？

capfsxl

我刚学perl，使用XML::Generator模块写了一段perl脚本，如下：

#!/usr/bin/perl
# generator.pl
use warnings;
use strict;
use XML::Generator;
my ($xml, $output);
$xml = new XML::Generator ('conformance' => 'strict',    'escape' => 'always',    'pretty' => 2);
$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->host(
                $xml->ip('192.168.45.115'),
                $xml->mask('255.255.255.0')
         )
     )
);
print $xml->xmldecl, "\n$output";
exit (0);

生成的结果如下：

<?xml version="1.0" standalone="yes"?>
<function funcname="acl_black_list" mode="predefined" no="no">
  <task_name>20130502152226_815403777</task_name>
  <device>
    <device_name>202.197.12.200</device_name>
    <interface_name>GigabitEthernet0/0/2</interface_name>
    <host>
      <ip>192.168.45.115</ip>
      <mask>255.255.255.0</mask>
    </host>
  </device>
</function>

但我想要的结果是：

<?xml version="1.0" encoding="GBK"?>
<function funcname="acl_black_list" mode="predefined" no="no">
  <task_name>20130502152226_815403777</task_name>
  <device>
    <device_name>202.197.12.200</device_name>
    <interface_name>GigabitEthernet0/0/2</interface_name>
    <host>
      <ip>192.168.45.115</ip>
      <mask>255.255.255.0</mask>
    </host>
  </device>
</function>


区别就在头部：如何将standalone="yes"改成encoding="GBK"，请各位大侠赐教！

mcshell

回复 1# capfsxl

1.     $xml = new XML::Generator ('conformance' => 'strict',    'escape' => 'always',    'pretty' => 2);

复制代码

加

1.     $xml = new XML::Generator ('conformance' => 'strict',    'escape' => 'always',    'pretty' => 2，'encoding'=>'GBK');

复制代码

你要是觉得standalone="yes"多余 就进perl 目录site\lib\XML 下的Generator.pm
找到

1. my $xml = "<?xml$version$encoding$standalone?>";

复制代码

删掉$standalone

capfsxl

回复 2# mcshell

感谢，太准确了，药到病除！我还想再请教一个问题，如果我从路由器刷出一段字符串后，才能判断<host>的个数，生成多个<host>并列的xml，在里面循环不行，怎么办呢？
   

capfsxl

回复 3# capfsxl

起床了，自己先顶一个！
   

pitonas

太牛了

capfsxl

回复 2# mcshell

4楼也夸你呢，:wink: ！
   

capfsxl

不能沉下去呀！！！