如何使用XML :: Writer插入XML perl

Question

我試圖製作一個可以根據輸入內容動態創建xml的系統。我有一個永遠都是一樣的seleton，而且唯一需要動態創建的就是formfields。例如，我需要將$ testXML插入到$ writer XML中。這裏是我有什麼到目前爲止

use strict; 
use warnings; 
use XML::Writer; 
my $test = XML::Writer->new(OUTPUT => 'self', DATA_MODE => 1, DATA_INDENT => 2,); 
$test->startTag('FormField', name => 'CheckBox1'); 
$test->startTag('Value'); 
$test->characters(''); 
$test->endTag('Value'); 
$test->endTag('FormField'); 
my $testXML = $test->end(); 

插入到

my $writer = XML::Writer->new(OUTPUT => 'self', DATA_MODE => 1,   DATA_INDENT => 2,); 
$writer->startTag('Section', name => 'FormSectionOne'); 
$writer->startTag('FormField', name => 'Person1'); 
$writer->startTag('Value'); 
$writer->characters('Bob Test'); 
$writer->endTag('Value'); 
$writer->endTag('FormField'); 
$testXML; 
my $xml = $writer->end(); 
print $xml; 

現在使用$寫入器的>原材料（$ testXML）;插入但格式有問題

<Section name="FormSectionOne"> 
     <FormField name="Person1"> 
     <Value>Bob Test</Value> 
     </FormField><FormField name="CheckBox1"> 
    <Value>test</Value> 

Answer 1

my $writer = XML::Writer->new(
    OUTPUT  => 'self', 
    DATA_MODE => 1, 
    DATA_INDENT => 2, 
    UNSAFE  => 1, 
); 

... 
$writer->raw($testXML); 
...