LibXML - 插入註釋

Question

我正在使用XML :: LibXML，我想添加註釋，以使註釋位於標記之外。它甚至有可能把它放在標籤之外嗎？我試過appendChild，insertBefore |之後，沒有區別...

 <JJ>junk</JJ> <!--My comment Here!--> 

    # Code excerpt from within a foreach loop: 
    my $elem  = $dom->createElement("JJ"); 
    my $txt_node = $dom->createTextNode("junk"); 
    my $cmt  = $dom->createComment("My comment Here!"); 

    $elem->appendChild($txt_node); 
    $b->appendChild($elem); 
    $b->appendChild($frag); 
    $elem->appendChild($cmt); 

    # but it puts the comment between the tags ... 
    <JJ>junk<!--My comment Here!--></JJ> 

Answer 1

不要將評論節點附加到$elem，而是附加到父節點。例如，下面的腳本

use XML::LibXML; 

my $doc = XML::LibXML::Document->new; 
my $root = $doc->createElement("doc"); 
$doc->setDocumentElement($root); 
$root->appendChild($doc->createElement("JJ")); 
$root->appendChild($doc->createComment("comment")); 
print $doc->toString(1); 

打印

<?xml version="1.0"?> 
<doc> 
    <JJ/> 
    <!--comment--> 
</doc>