perl에서 XML 노드를 반전

Question

부모 노드에서 하위 노드의 순서를 반대로해야합니다. 이것은 XML입니다 :

<?xml version="1.0" encoding="ISO-8859-1"?> 
<!DOCTYPE tv SYSTEM "xmltv.dtd"> 

<tv source-info-name="BDS" generator-info-name="mc2xml" generator- info-url="mailto:mc2xml@gmail.com"> 
<channel id="I2.751784.microsoft.com"> 
    <display-name>2 1Xtra BBC</display-name> 
    <display-name>2</display-name> 
    <display-name>1Xtra BBC</display-name> 
    <display-name>BBC R1X</display-name> 
</channel> 

난 단지 이들 항목 해당 번호로 각색이기 때문에 짜증나 이름으로 첫 display-name 노드를 필요로이 XML 피드 프로그램.

그래서 가장 마지막 노드가 먼저 오길 원합니다.

이 스크립트를 사용하여 channel 개의 노드를 가져옵니다. 이것은 2 xml을 병합하는 코드의 일부입니다. 그러나 나는에 거기에서 붙어 :

foreach my $chan ( $t2->findnodes('//channel')) { 
    $root->insertAfter($chan, $last_chan); 
    $last_chan = $chan; 
} 

Answer 1

for my $channel_node ($root->findnodes('//channel')) { 
    for my $child_node (reverse $channel_node->childNodes()) { 
     $channel_node->removeChild($child_node); 
     $channel_node->appendChild($child_node); 
    } 
} 

appendChild 노드가 부모의 이미 아이, removeChild의 따라서 사용하는 경우가 작동하지 않습니다 말한다. 그러나 테스트 결과 removeChild은 실제로 필요하지 않습니다.

Answer 2

이 예는 가능한 해결책을 보여줍니다.

use strict; 
use warnings; 

use XML::LibXML; 

my $xml = XML::LibXML->load_xml(string => <<'END'); 
<?xml version="1.0" encoding="ISO-8859-1"?> 
<!DOCTYPE tv SYSTEM "xmltv.dtd"> 

<tv source-info-name="BDS" generator-info-name="mc2xml" generator-info-url="mailto:mc2xml@gmail.com"> 
<channel id="I2.751784.microsoft.com"> 
    <display-name>2 1Xtra BBC</display-name> 
    <display-name>2</display-name> 
    <display-name>1Xtra BBC</display-name> 
    <display-name>BBC R1X</display-name> 
</channel> 
</tv> 
END 

for my $chan ($xml->findnodes("/tv/channel")) { 
    $chan->appendChild($_) for reverse $chan->childNodes; 
} 

print $xml->toString(1); 

출력

<?xml version="1.0" encoding="ISO-8859-1"?> 
<!DOCTYPE tv SYSTEM "xmltv.dtd"> 
<tv source-info-name="BDS" generator-info-name="mc2xml" generator-info-url="mailto:mc2xml@gmail.com"> 
<channel id="I2.751784.microsoft.com"> 
<display-name>BBC R1X</display-name> 
    <display-name>1Xtra BBC</display-name> 
    <display-name>2</display-name> 
    <display-name>2 1Xtra BBC</display-name> 
    </channel> 
</tv> 

---

편집

나는 당신의 요구 사항을 오해하고 각 <channel> 내에서 역전 <display-name> 요소를 원한다고 생각. 다음은 <channel> 요소를 <tv> 번으로 바꿔 코드의 핵심 부분입니다.

my @channels = $xml->find('/tv/channel'); 
my $tv = $channels[0]->parentNode; 
$tv->appendChild($_) for reverse @channels; 

---

지금 나는 바로 처음 생각합니다. 골라보세요!