使用XML :: Twig將XML記錄添加到現有XML文件中

Question

我試圖在現有XML文件的某個xpath下添加一塊內容。我是使用Perl進行XML解析的新手。但我本來應該使用這個XML::Twig。

輸入：

<model name="MDL_#USER#" oid="#LOOP#"> 
<appli name="ERETAIL" oid="2"> 
    <schema desc="Parameters schema" enab="YES" name="Parameters" oid="1" prio="1"> 
     <bean enab="YES" labl="Parameters" name="ERETAILPARA" oid="3" vers="1.0" xpos="0" ypos="0"> 
      <para> 
       <root> 
        <row desc="password encryption mode" name="OISENCRYPT" value="BASE64"/> 
       </root> 
      </para>   
     </bean> 
    </schema> 
</appli> 

輸出：

<model name="MDL_#USER#" oid="#LOOP#"> 
<appli name="ERETAIL" oid="2"> 
    <schema desc="Parameters schema" enab="YES" name="Parameters" oid="1" prio="1"> 
     <bean enab="YES" labl="Parameters" name="ERETAILPARA" oid="3" vers="1.0" xpos="0" ypos="0"> 
      <para> 
       <root> 
        <row desc="password encryption mode" name="OISENCRYPT" value="BASE64"/> 
        <row name="INTERNAL" desc="" value=""> 
         <row name="PATH" desc="Path" value="#PATH#" /> 
         <row name="EXT" desc="Adresse" value="#GAIAIP#" /> 
        </row> 
       </root> 
      </para>   
     </bean> 
    </schema> 
</appli> 

Answer 1

爲XML::Twig，創建一個處理程序來修改要更改的元素。在該處理程序，創建要那麼新的元素粘貼到元素作爲孩子：

use XML::Twig; 

my $xml = <<'HERE'; 
<model name="MDL_#USER#" oid="#LOOP#"> 
<appli name="ERETAIL" oid="2"> 
    <schema desc="Parameters schema" enab="YES" name="Parameters" oid="1" prio="1"> 
     <bean enab="YES" labl="Parameters" name="ERETAILPARA" oid="3" vers="1.0" xpos="0" ypos="0"> 
      <para> 
       <root> 
        <row desc="password encryption mode" name="OISENCRYPT" value="BASE64"/> 
       </root> 
      </para>   
     </bean> 
    </schema> 
</appli> 
</model> 
HERE 

my $twig = XML::Twig->new(
    twig_handlers => { 
     'bean/para/root' => \&add_rows, 
     }, 
    pretty_print => 'indented', 
    ); 
$twig->parse($xml); 
$twig->print; 

請記住，在處理程序中，你得到的當前元素爲$_：

sub add_rows { 
    XML::Twig::Elt->new(row => { 
     name => 'PATH', 
     desc => 'Path', 
     value => '#PATH#' 
     })->paste(last_child => $_); 

    XML::Twig::Elt->new(row => { 
     name => 'EXT', 
     desc => 'Adresse', 
     value => '#GAIAIP#' 
     })->paste(last_child => $_); 
    }