使用XML添加新节点:libXML抛出错误

Question

xml是这样的

<RasdItemsList xmlns="http://www.vmware.com/vcloud/v1.5" xmlns:rasd="...">
      <Link rel="edit" type="application/vnd.vmware.vcloud.rasdItemsList+xml" href="..."/>
      <Item>
          <rasd:AddressOnParent>0</rasd:AddressOnParent>
          <rasd:Description>Hard disk</rasd:Description>
          <rasd:ElementName>Hard disk 1</rasd:ElementName>
          <rasd:HostResource xmlns:ns12="http://www.vmware.com/vcloud/v1.5" ns12:capacity="59392" ns12:busSubType="lsilogic" ns12:busType="6"></rasd:HostResource>
          <rasd:InstanceID>2000</rasd:InstanceID>
          <rasd:Parent>2</rasd:Parent>
          <rasd:ResourceType>17</rasd:ResourceType>
      </Item>
      <Item>
          <rasd:AddressOnParent>1</rasd:AddressOnParent>
          <rasd:Description>Hard disk</rasd:Description>
          <rasd:ElementName>Hard disk 2</rasd:ElementName>
          <rasd:HostResource xmlns:ns12="http://www.vmware.com/vcloud/v1.5" ns12:capacity="4" ns12:busSubType="lsilogic" ns12:busType="6"></rasd:HostResource>
          <rasd:InstanceID>2001</rasd:InstanceID>
          <rasd:Parent>2</rasd:Parent>
          <rasd:ResourceType>17</rasd:ResourceType>
      </Item>
.. Some more items
</RasdItemsList>

我正在尝试添加一个新的项目节点，即使用XML::libXML的新硬盘。这是我的代码

  my $doc    = $parser->parse_string ($data_xml); 
  my $xpc = XML::LibXML::XPathContext->new($doc);
  $xpc->registerNs('x', 'http://www.vmware.com/vcloud/v1.5');
  $xpc->registerNs('rasd', 'http:...');
  $xpc->registerNs('ns2','http://www.vmware.com/vcloud/v1.5');
  # add a new node
  my $new_item = $doc->createElement("Item");
  my $new_address_on_parent = $doc-> createElement("rasd:AddressOnParent");
  my $new_element_name = $doc->createElement("rasd:ElementName"); 
  my $new_description = $doc->createElement("rasd:Description");
  my $new_InstanceID  = $doc->createElement("rasd:InstanceID");
  my $new_parent = $doc->createElement("rasd:Parent");
  my $new_resource_type = $doc->createElement("rasd:ResourceType");
  my $new_host_resource = $doc->createElement("rasd:HostResource");
  if( my ($node) =  $xpc->findnodes('/x:RasdItemsList/x:Item') )
  {
    my $new_parent =  $node->parentNode;
    $new_parent->appendChild($new_item);
    $new_item->appendChild($new_address_on_parent);
    $new_item->appendChild($new_description);
    $new_item->appendChild($new_element_name);
    $new_item->appendChild($new_host_resource);
    $new_item->appendChild($new_InstanceID);
    $new_item->appendChild($new_parent);
    $new_item->appendChild($new_resource_type);
    $new_address_on_parent->appendText('4');
    $new_description->appendText('Hard disk');
    $new_element_name->appendText('Hard Disk 4');
    $new_host_resource->appendText("What to add");
    $new_InstanceID->appendText('2004');
    $new_parent->appendText('2');
    $new_resource_type->appendText('17');

这是抛出错误说"appendChild: HIERARCHY_REQUEST_ERR"。我试着一个接一个地添加孩子，它工作，直到我添加Elementname。之后，无论我尝试添加什么，我都会得到上面的错误。

我也不知道如何添加rasd:HostResource子文本。

提前感谢您的帮助。

Answer 1

查看错误信息描述:

HIERARCHY_REQUEST_ERR is

"如果此节点的类型不允许newChild节点的子节点类型，或者要插入的节点是此节点的祖先节点之一，则引发"

您正在将$new_item ($doc的子节点)添加到您找到的节点的父节点。我猜测 $new_item是该节点的祖先。

你正在寻找一个"Item"节点，它将适合:向$doc(这里:$new_item)添加一个子节点将比Item高一级，至少在层次结构中低于RasdItemsList。

希望有帮助!

Answer 2

$new_parent是罪魁祸首。它已经用作项目节点的父节点，因此不能再次用作添加为项目的子节点。下面这行代码产生了这个问题。new_item ->列表末尾美元($ new_parent);

我修复了这两行，它工作了。

 my $new_parent =  $node->parentNode;
 $new_parent->appendChild($new_item);
to 
my $new_parent_node = $node->parentNode;
$new_parent_node->appendChild($new_item);