PerlのXML :: Twigを使用して子要素をXMLに追加するにはどうすればよいですか？

Question

私は、次のXMLファイルを持っている：今

<SOURCE_SERVER> 
    <SERVER HOSTNAME="serv1"> 
     <CIFS_SERVICE NETBIOSNAME="serv1"/> 
    </SERVER> 
    <SERVER HOSTNAME="serv2"> 
    </SERVER> 
<SOURCE_SERVER> 

は、私が<SERVER HOSTNAME="serv2">に子<CIFS_SERVICE NETBIOSNAME="serv2"/>を追加します。 XML::Twigを使用してこれを行うにはどうすればよいですか？

Answer 1

ここでは、あなたの質問に合理的な修正を加えたソリューションを紹介します。以下のコードは、ドキュメントに記載されているfiltering exampleに基づいています。

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::Twig; 

my $t = XML::Twig->new(
    twig_roots => { SERVER => \&update }, 
    twig_print_outside_roots => 1, 
); 

$t->parse(\*DATA); 

sub update { 
    my ($t, $server) = @_; 
    if ('serv2' eq $server->att('HOSTNAME')) { 
     $server->insert(
      CIFS_SERVICE => { NETBIOSNAME => 'serv2' }, 
     ); 
    } 
    $server->print; 
} 


__DATA__ 
<SOURCE_SERVER> 
    <SERVER HOSTNAME="serv1"> 
     <CIFS_SERVICE NETBIOSNAME="serv1" /> 
    </SERVER> 
    <SERVER HOSTNAME="serv2"> 
    </SERVER> 
</SOURCE_SERVER> 

出力：

C:\Temp> x 
<SOURCE_SERVER> 
    <SERVER HOSTNAME="serv1"><CIFS_SERVICE NETBIOSNAME="serv1"/></SERVER> 
    <SERVER HOSTNAME="serv2"><CIFS_SERVICE NETBIOSNAME="serv2"/></SERVER> 
</SOURCE_SERVER>