Voglio inserire l'elemento B1 come antenato per l'elemento "C". Di seguito ho incollato il mio codice xml e perl campione
Ingresso
<A>
<B>
<C>
<D>name</D>
<E>number</E>
</C>
</B>
</A>
produzione
<A>
<B>
<B1></B1>
<C>
<D>name</D>
<E>number</E>
</C>
</B>
</A>
Voglio un risultato come questo
<A>
<B>
<B1>
<C>
<D>name</D>
<E>number</E>
</C>
<B1>
</B>
</A>
il mio codice
Quando eseguo il codice che inserisce solo il titolo dell'elemento non crea un acestor
#!/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 ($ref_node) = $doc->findnodes("AB");
my $new_element= $doc->createElement("B1");
$ref_node->parentNode->insertAfter($new_element, $ref_node);
print $root->toString(1);
risposte:
3 per risposta № 1Devi rimuovere il nodo interno e inserirlo nel nuovo elemento:
#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML;
my $doc = "XML::LibXML"->load_xml( location => "mytest.xml" );
my $root = $doc->getDocumentElement();
my $new_element = $doc->createElement("B1");
my ($parent) = $doc->findnodes("/A/B");
my ($inner) = $parent->findnodes("C");
$new_element->addChild($inner);
$parent->addChild($new_element);
print $root->toString();
Oppure, per codice più breve, utilizzando XML :: XSH2:
open mytest.xml ;
wrap B1 A/B/C ;
save :b ;