Как добавить дочерние элементы в XML, используя Perl XML :: Twig? - PullRequest
Новая
       18

Как добавить дочерние элементы в XML, используя Perl XML :: Twig?

2 голосов
/ 11 августа 2009

У меня есть следующий XML-файл: 

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

Теперь я хочу добавить дочерний элемент <CIFS_SERVICE NETBIOSNAME="serv2"/> к <SERVER HOSTNAME="serv2">. Как мне сделать это, используя XML :: Twig ?

1 Ответ

5 голосов
/ 11 августа 2009

Вот решение, включающее, как мне кажется, разумные решения вашего вопроса. Приведенный ниже код основан на примере фильтрации , приведенном в документации. 

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