Build Tree ::文件數據中的簡單對象

Question

有沒有人有使用Tree::Simple或將數據放入Perl樹中的經驗？

說我有以下數據CSV文件： -

Bob, Bill, Ben, Brett 
Bob, Bill, Brian 
Bob, John, Jim 
Alice, John, Jill, Jane 
Alice, Jean 
Alice, Janet, Brian 

我想將它轉化成一個樹狀結構，以獲取以下信息：

1, Bob 
2, Alice 
1.1, Bill 
1.1.1, Ben 
1.1.1.1, Brett 
1.1.2, Brian 
1.2, John 
1.2.1, Jim 
2.1, John 
2.1.1, Jill 
2.1.1.1, Jane 
2.2, Jean 
2.3, Janet 
2.3.1, Brian 

我已經看過Tree::Simple並知道如果我可以將數據導入樹中，我可以使用Tree::Parser以正確的編號輸出它。

我想要的是一個如何可以逐行輸入數據的例子。我可以從將文件的每一行讀入數組開始，並將$array[0]作爲第一個孩子添加 - 例如，

$tree->addChildren(Tree::Simple->new($array[0])); 

什麼我不知道該怎麼做的是：

1. 檢查是否存在已是一個在樹名孩子，讓我不加說鮑勃在兩次。

2. 找到每個孩子這麼正確的父是說吉爾輸入爲約翰的孩子誰是愛麗絲的孩子，而不是鮑勃

   的孩子

我更上欣賞一些幫助這個問題。我一直在爲此工作4天，無法到達那裏。如果Tree::Simple不是這樣做的最好方式，也許還有另一種方式？

Answer 1

該程序將讀取您在DATA文件句柄中顯示的示例數據，並顯示您所需的內容。

它通過將樹中的所有節點放置在由每個節點的值索引的散列中來跟蹤它們。每當輸入文件中出現一個值時，就會檢查散列是否已經存在。如果沒有，則創建一個新的樹節點並將其添加到散列中。無論哪種方式，該節點都被用作同一行上下一個值的父代。

沒有檢查數據的一致性，並假定每個節點最多隻有一個父節點。如果數據文件中的某個值第二次出現在另一個父名下方，則新關聯將被忽略。

use strict; 
use warnings; 

use Tree::Simple; 
use Tree::Parser; 

my %nodes; 

my $root = Tree::Simple->new('root'); 

while (<DATA>) { 
    my $parent = $root; 
    for my $name (split) { 
    $name =~ tr/,//d; 
    $nodes{$name} = Tree::Simple->new($name, $parent) unless $nodes{$name}; 
    $parent = $nodes{$name}; 
    } 
} 

my $tp = Tree::Parser->new($root); 
$tp->useDotSeparatedLevelFilters; 
print "$_\n" for $tp->deparse 

__DATA__ 
Bob, Bill, Ben, Brett 
Bob, Bill, Brian 
Bob, John, Jim 
Alice, John, Jill, Jane 
Alice, Jean 
Alice, Janet, Brian 

輸出

1 Bob 
1.1 Bill 
1.1.1 Ben 
1.1.1.1 Brett 
1.1.2 Brian 
1.2 John 
1.2.1 Jim 
1.2.2 Jill 
1.2.2.1 Jane 
2 Alice 
2.1 Jean 
2.2 Janet