insert after child libxml perl

Question

<root> 
<element>abc</element> 
<top> 
<element>after</element> 
<element>before</element> 
</top> 
<element>456</element> 
</root> 

Я хочу вставить еще один элемент после элемента и перед элементом. Пробовал несколько вариантов, должен что-то упустить.

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::LibXML; 

my $parser = XML::LibXML->new; 
my $doc = $parser->parse_file("mytest.xml"); 
my $root = $doc->getDocumentElement(); 
my @node = $doc->find('//top/element[2]'); 

my $new_element= $doc->createElement("element"); 
$new_element->appendText('testing'); 

$node[0]->insertAfter($new_element, undef); 

print $root->toString(1); 

Answer 1

$node[0] является ссылочный узел (т.е. узел, относительно которого мы хотим вставить). Назовем это $ref_node.

Ваш код страдает от следующих проблем:

• Вы хотите вставить после первого element из top, а не второй.
• Вы хотите вставить его в детский дом $ref_node->parentNode, а не $ref_node.
• Вы хотите вставить его после $ref_node, не после undef.
• Вы также используете find (который возвращает NodeList), когда вы хотите findnodes (который возвращает фактические узлы).

Так,

my ($ref_node) = $doc->findnodes('//top/element[1]'); 
$ref_node->parentNode->insertAfter($new_element, $ref_node);