XML :: LibXML :: Node replaceNode()는 대체 노드의 Perl 인스턴스를 대체합니다

Question

... a을 b으로 바꾼 후에 a에 대한 이전 참조는 이제 b을 가리 킵니까?

Answer 1

#!/usr/bin/perl 
use warnings; 
use strict; 

use XML::LibXML; 

my $dom = 'XML::LibXML'->load_xml(string => '<r><p><c/></p></r>'); 
my ($n1) = $dom->findnodes('/r/p/c'); 
my ($n2) = $dom->findnodes('/r/p/c'); 
$n1->replaceNode('XML::LibXML::Element'->new('n')); 
print $dom; 
print $n1, $n2; 

출력 :

<?xml version="1.0"?> 
<r><p><n/></p></r> 
<c/><c/>