請教：如何將standalone="yes"改成encoding="GBK"？

capfsxl

我剛學(xué)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);

生成的結(jié)果如下：

<?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>

但我想要的結(jié)果是：

<?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>


區(qū)別就在頭部：如何將standalone="yes"改成encoding="GBK"，請各位大俠賜教！

mcshell

回復(fù) 1# capfsxl

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

復(fù)制代碼

加

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

復(fù)制代碼

你要是覺得standalone="yes"多余 就進(jìn)perl 目錄site\lib\XML 下的Generator.pm
找到

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

復(fù)制代碼

刪掉$standalone

capfsxl

回復(fù) 2# mcshell

感謝，太準(zhǔn)確了，藥到病除！我還想再請教一個問題，如果我從路由器刷出一段字符串后，才能判斷<host>的個數(shù)，生成多個<host>并列的xml，在里面循環(huán)不行，怎么辦呢？
   

capfsxl

回復(fù) 3# capfsxl

起床了，自己先頂一個！
   

pitonas

太牛了

capfsxl

回復(fù) 2# mcshell

4樓也夸你呢，:wink: ！
   

capfsxl

不能沉下去呀�。�！