如何使用Perl的XML :: Twig向XML添加子元素? [英] How do I add child elements to XML using Perl's XML::Twig?
本文介绍了如何使用Perl的XML :: Twig向XML添加子元素?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有以下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 ?
Now, I want to add child <CIFS_SERVICE NETBIOSNAME="serv2"/>
to <SERVER HOSTNAME="serv2">
. How do I do this using XML::Twig?
推荐答案
以下是结合我认为对您的问题的合理解决方案的解决方案.以下代码基于文档中提供的过滤示例.>
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>
输出:
C:\Temp> x
<SOURCE_SERVER>
<SERVER HOSTNAME="serv1"><CIFS_SERVICE NETBIOSNAME="serv1"/></SERVER>
<SERVER HOSTNAME="serv2"><CIFS_SERVICE NETBIOSNAME="serv2"/></SERVER>
</SOURCE_SERVER>
这篇关于如何使用Perl的XML :: Twig向XML添加子元素?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文