xml :: smart 패키지없이 xml 출력을 파일에 저장하는 방법

Question

스마트 패키지없이 xml 파일에 XML 출력을 저장하려고하지만 할 수 없습니다.

use warnings; 
use strict; 
use XML::Simple; 

my $xml; 
my @hash = qw('test' '60.0' 'test1' '103' 'test2' '20' 'test3' '108'); 

my %hash1 =@hash; 

my $hash2 = \%hash1; 

my $xs = new XML::Simple; 
$xml = $xs->XMLout($hash2 , 
        NoAttr => 1, 
        RootName=>'newPhone', 
       ); 
print $xml; 
$xml->save('newfile.xml') ; 

Answer 1

는 XML::Simple의 마법 save 방법이 없습니다. 당신이 당신의 코드를하려고하면, 당신은 당신이 알려주는 오류 메시지가 얻을 것이다 : 파일로 출력, 대신

Can't locate object method "save" via package "<newPhone>..." 

을, 당신은 단순히 그것을 파일 핸들을 열고 인쇄해야합니다

use warnings; 
use strict; 
use autodie; 

use XML::Simple; 

my %hash = qw(test 60.0 test1 103 test2 20 test3 108);; 

my $xs = new XML::Simple; 
my $xml = $xs->XMLout(\%hash, 
    NoAttr => 1, 
    RootName => 'newPhone', 
); 

open my $fh, '>', 'newfile.xml'; 
print $fh $xml; 
close $fh; 

Answer 2

use warnings; 
use strict; 
use XML::Simple; 

my $xml; 
my @hash = qw('test' '60.0' 'test1' '103' 'test2' '20' 'test3' '108'); 

my %hash1 =@hash; 

my $hash2 = \%hash1; 

my $xs = new XML::Simple; 
$xml = $xs->XMLout($hash2 , 
        NoAttr => 1, 
            RootName=>'newPhone', 
                ); 
#print $xml; 
open (FH, '>newfile.xml') || die "unable to create $!"; 
$xml = qq{<?xml version="1.0" encoding="UTF-8"?>\n} . $xml; 
print FH $xml; 
close (FH); 

Answer 3

저장 내 XML::MyXML 모듈을 사용하는 것을 고려는 종속성이없고, 작은 XML 문서 괜찮습니다.