How do I add child elements to XML using Perl's XML::Twig?

Question

I have the following XML file:

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

Now, I want to add child <CIFS_SERVICE NETBIOSNAME="serv2"/> to <SERVER HOSTNAME="serv2">. How do I do this using XML::Twig?

I reformatted your post so that the XML visible. Is there really no closing `` in your XML file? Did you mean you want to add `` to ``? Please edit your post to reflect the correct requirements. — Sinan Ünür, Aug 11 '09 at 11:28
@Ninja See my answer below. Is `` correct? Shouldn't that be ``? Otherwise, it is not XML. — Sinan Ünür, Aug 11 '09 at 12:04

Sinan Ünür · Accepted Answer · 2009-08-11T11:56:37.313

Here is a solution incorporating what I think are reasonable fixes to your question. The code below is based on the filtering example given in the documentation.

#!/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>

Output:

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

Sinan, thanks a ton for your answer. However, I have one more query. Actually my xml looks like this: ` ` So, I don't need to insert tag. The twig points to SERVER and I need to set attribute of it's child. How do I do it? Please help me. — Ninja, Aug 11 '09 at 19:08

How do I add child elements to XML using Perl's XML::Twig?

1 Answers1

Linked