如何使用 Perl 在 XML 数据中移动节点

Question

我尝试了几种不同的方法来解析 XML 文档。我需要在文档中找到具有xattribute 的节点，然后将该节点及其子节点移动到不同的父节点。

我使用XML::LibXML 来定位节点并能够遍历它的子节点已经取得了一些成功，但我不知道如何将它移动到不同的父节点。

使用$node->cloneNode(1) 看起来很有希望，但我找不到很好的使用示例。

这是原始的 XML 数据

<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
  <old>
    <server name="sahara" osname="solaris" osversion="2.6">
      <address ip="10.0.0.101">Private</address>
      <address ip="10.0.1.101">Private</address>
    </server>
    <server name="gobi" osname="irix" osversion="6.5">
      <address ip="10.0.0.102">Private</address>
    </server>
    <server name="kalahari" osname="linux" osversion="2.0.34">
      <address ip="10.0.0.103">Private</address>
      <address ip="10.0.1.103">Private</address>
    </server>
  </old>
  <new>
  </new>        
</config>

这就是我想要的结果

<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
  <old>
    <server name="sahara" osname="solaris" osversion="2.6">
      <address ip="10.0.0.101">Private</address>
      <address ip="10.0.1.101">Private</address>
    </server>
    <server name="gobi" osname="irix" osversion="6.5">
      <address ip="10.0.0.102">Private</address>
    </server>
  </old>
  <new>
    <server name="kalahari" osname="linux" osversion="2.0.34">
      <address ip="10.0.0.103">Private</address>
      <address ip="10.0.1.103">Private</address>
    </server>
  </new>        
</config>

Answer 1

使用XML::LibXML：

use strict;
use warnings;

use XML::LibXML;

my $xml = XML::LibXML->load_xml( IO => \*DATA );

my ($new) = $xml->findnodes('//new');

for my $linux ( $xml->findnodes('//old/server[@osname="linux"]') ) {
    $linux->unbindNode();         # Remove from Parent (done automatically when added elsewhere without cloning)
    $new->addChild($linux);
}

print $xml;

__DATA__
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
    <old>
        <server name="sahara" osname="solaris" osversion="2.6">
            <address ip="10.0.0.101">Private</address>
            <address ip="10.0.1.101">Private</address>
        </server>
        <server name="gobi" osname="irix" osversion="6.5">
            <address ip="10.0.0.102">Private</address>
        </server>
        <server name="kalahari" osname="linux" osversion="2.0.34">
            <address ip="10.0.0.103">Private</address>
            <address ip="10.0.1.103">Private</address>
        </server>
    </old>
    <new>
    </new>      
</config>

输出：

<?xml version="1.0"?>
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
    <old>
        <server name="sahara" osname="solaris" osversion="2.6">
            <address ip="10.0.0.101">Private</address>
            <address ip="10.0.1.101">Private</address>
        </server>
        <server name="gobi" osname="irix" osversion="6.5">
            <address ip="10.0.0.102">Private</address>
        </server>

    </old>
    <new>
    <server name="kalahari" osname="linux" osversion="2.0.34">
            <address ip="10.0.0.103">Private</address>
            <address ip="10.0.1.103">Private</address>
        </server></new>      
</config>

Answer 2

您需要做的就是找到子节点和父节点，然后通过调用appendChild 将子节点移动到其新父节点。

假设您的原始 XML 数据位于名为 config.xml 的文件中，代码将如下所示。

我不知道有更好的方法来说服XML::LibXML 生成缩进良好的数据。我发现最好的方法是启用no_blanks 并对toString 使用非零参数，但您可以看到它远非理想。

use strict;
use warnings;

use XML::LibXML;

my $xml = XML::LibXML->load_xml(location => 'config.xml', no_blanks => 1);

my ($kalahari) = $xml->findnodes('/config/old/server[@name="kalahari"]');

my ($new) = $xml->findnodes('/config/new');

$new->appendChild($kalahari);

print $xml->toString(1);

输出

<?xml version="1.0"?>
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
  <old>
    <server name="sahara" osname="solaris" osversion="2.6">
      <address ip="10.0.0.101">Private</address>
      <address ip="10.0.1.101">Private</address>
    </server>
    <server name="gobi" osname="irix" osversion="6.5">
      <address ip="10.0.0.102">Private</address>
    </server>
  </old>
  <new>
  <server name="kalahari" osname="linux" osversion="2.0.34"><address ip="10.0.0.103">Private</address><address ip="10.0.1.103">Private</address></server></new>
</config>