用Perl实现XML DOM的insertAfter函数_pmsg函数perl-优快云博客

本文介绍了如何在Windows平台上利用Perl和C++编程语言实现MSXML不支持的insertAfter函数，包括两种不同语言的代码实现及环境说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

《JavaScriptDOM编程艺术》一书中曾经用JS实现过MSXML不支持的insertAfter函数，刚才我用Perl在Windows平台实现这个函数：

  
   use 
   Win32::
   OLE 
   qw(in with)
   ;
  
  
   use 
   strict
   ;
  
  
   

  
  
   use 
   constant 
   MSXMLDOM 
   => 
   "MSXML2.DOMDOCUMENT.4.0"
   ;
  
  
   

  
  
   sub 
   insertAfter
   {
  
  
       
   my
   (
   $newElement
   , 
   $targetElement
   ) 
   = 
   @_
   ;
  
  
       
   # my $lastChild = $parent->{lastChild};
  
  
   

  
  
       
   # Next line can NOT work in Perl.
  
  
       
   # if($lastChild && $lastChild == $targetElement) 
  
  
   

  
  
       
   if 
   (
   !
   $targetElement
   ->
   nextSibling
   ())
  
  
   

  
  
       
   {
  
  
           
   $parent
   ->
   appendChild
   (
   $newElement
   );
  
  
       
   }
  
  
       
   else
  
  
       
   {
  
  
           
   $parent
   ->
   insertBefore
   (
   $newElement
   ,
   $targetElement
   ->
   nextSibling
   ());
  
  
       
   }
  
  
   }

Perl编译器：ActiverPerl 5.12

最新代码见： https://gist.github.com/1074492

---------------------------------------------------------------------------------------------------------------------------------------

11/07/22 今天又用C++实现了一遍，代码如下：

   
    bool 
    CXmlUtil
    ::
    InsertAfter
    (
    const 
    XMLDOMNodePtr
    & 
    nodeNew
    , 
   
   						   
    const 
    XMLDOMNodePtr
    & 
    nodeTarget
    )
   
   
    {
   
   	
    if 
    (
    !
    nodeNew 
    || 
    !
    nodeTarget
    )
   
   	
    {
   
   		
    return 
    false
    ;
   
   	
    }
   
   
    

   
   	
    XMLDOMNodePtr 
    nodeParent
    ;
   
   	
    HRESULT 
    hr 
    = 
    nodeTarget
    ->
    get_parentNode
    (
    &
    nodeParent
    );
   
   
    

   
   	
    if 
    (
    FAILED
    (
    hr
    ) 
    || 
    nodeParent 
    == 
    NULL
    )
   
   	
    {
   
   		
    return 
    false
    ;
   
   	
    }
   
   
    

   
   	
    XMLDOMNodePtr 
    nodeSibling
    ;
   
   	
    hr 
    = 
    nodeTarget
    ->
    get_nextSibling
    (
    &
    nodeSibling
    );
   
   	
    ASSERT
    (
    SUCCEEDED
    (
    hr
    ));
   
   
    

   
   	
    if 
    (
    nodeSibling
    )
   
   	
    {
   
   		
    hr 
    = 
    nodeParent
    ->
    insertBefore
    (
    nodeNew
    , 
    _variant_t
    (
    nodeSibling
    .
    GetInterfacePtr
    ()), 
    NULL
    );
   
   		
    ASSERT
    (
    SUCCEEDED
    (
    hr
    ));
   
   	
    }
   
   	
    else
   
   	
    {
   
   		
    hr 
    = 
    nodeParent
    ->
    appendChild
    (
    nodeNew
    , 
    NULL
    );
   
   		
    ASSERT
    (
    SUCCEEDED
    (
    hr
    ));
   
   	
    }
   
   
    

   
   	
    return 
    true
    ;
   
   
    }