以遞歸方式遍歷perl XML中的XML節點:: LibXML

Question

我有一個xml，我需要解析xml並遍歷到最後一個子節點，XML將會動態生成，所以我不知道XML的深度，可以我遍歷xml直到它的最後一個孩子和兄弟姐妹（如果有的話）。請解決此問題的幫助：

我的代碼片斷是：

  foreach my $childNodes ($root->findnodes('/')) 
      { 
       print $childNodes->nodePath; 
       print "\n"; 
       if($childNodes->hasChildNodes) 
       { 
        foreach my $gChildNode ($camelid->childNodes) 
        { 
         print $gChildNode->nodePath; 
         print "\n"; 
        } 
      } 

這將輸出節點，直到深度2，但如果深度爲3我的意思是根有一個孩子，孩子我的代碼打印出來但如果這裏有另一個孩子，代碼將不會打印，也不會猜測。我如何找到這個。

在此先感謝。

Answer 1

只是包裝代碼來處理函數中的節點並遞歸調用它。一些附加評論的示例：

sub process_node { 
    my $node = shift; 

    print $node->nodePath, "\n"; 

    # No need to check hasChildNodes. If there aren't any 
    # children, childNodes will return an empty array. 
    for my $child ($node->childNodes) { 
     # Call process_node recursively. 
     process_node($child); 
    } 
} 

# documentElement is more straight-forward than findnodes('/'). 
process_node($root->documentElement);