如何使用Perl移動XML數據中的節點

Question

我已經嘗試了幾種不同的解析XML文檔的方法。我需要在文檔中找到具有x屬性的節點，然後將該節點及其子節點移動到不同的父節點。

我已經有一些成功的使用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數據位於名爲​​3210的文件中，代碼將如下所示。

我不知道一個更好的方式來說服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>