Perl中是否有一個n-tree樹實現？

Question

我正在寫一個Perl腳本，並希望使用n元樹數據結構。

是否有一個很好的實現可用作源代碼（而不是Perl庫的一部分）？

Answer 1

添加到什麼馬修已經說過，它看起來像下面的模塊將是合適的：

Tree::Nary
Tree::Simple
Tree

Answer 2

我真的不明白爲什麼你想要它是「源代碼」而不是perl庫，但你可以下載任何CPAN模塊的源代碼。

我沒有使用它，但Tree看起來滿足您的要求。

Answer 3

根據你所需要的樹結構，您可能不需要任何預先構建的實現。 Perl已經使用arrayrefs數組支持它們。

例如，這種樹

   t 
     / \ 
      a  d 
     /\ /\ 
     b c e f 

可以通過下面的Perl代碼來表示的簡單表示：

$tree = [ t => [ a => [ b => [], c => [] ] 
       d => [ e => [], f => [] ] ] ]; 

在此，樹的表示形式嵌套對：第一元件（在這種情況下是字母），然後是表示該元素的子元素的匿名數組引用。請注意，=>只是Perl中一個奇特的逗號，它可以排除引號繞逗號左側的標記，只要它是一個單詞即可。上面的代碼也已經被這樣寫入：

$tree = [ 't', [ 'a' , [ 'b' , [], 'c' , [] ] 
       'd' , [ 'e' , [], 'f' , [] ] ] ]; 

這裏的樹中的所有的元件的簡單的深度優先累加器：

sub elements { 
    my $tree = shift; 

    my @elements; 
    my @queue = @$tree; 
    while (@queue) { 
     my $element = shift @queue; 
     my $children = shift @queue; 
     push @elements, $element; 
     unshift @queue, @$children; 
    } 

    return @elements; 
} 

@elements = elements($tree)  # qw(t a b c d e f) 

（對於廣度優先，行unshift @queue, @$children更改爲push @queue, @$children ）

所以，根據你想要在樹上執行什麼操作，最簡單的事情可能就是使用Perl對數組和數組引用的內置支持。