十、用關(guān)聯(lián)數(shù)組創(chuàng)建數(shù)據(jù)結(jié)構(gòu)

　　用關(guān)聯(lián)數(shù)組可以模擬在其它高級語言中常見的多種數(shù)據(jù)結(jié)構(gòu)，本節(jié)講述如何用之實現(xiàn)：鏈表、結(jié)構(gòu)和樹。

2、結(jié)構(gòu)

許多編程語言可以定義結(jié)構(gòu)(structure)，即一組數(shù)據(jù)的集合。結(jié)構(gòu)中的每個元素有其自己的名字，并通過該名字來訪問。
Perl不直接提供結(jié)構(gòu)這種數(shù)據(jù)結(jié)構(gòu)，但可以用關(guān)聯(lián)數(shù)組來模擬。例如模擬C語言中如下的結(jié)構(gòu)：

struce{
int field1;
int field2;
int field3; }mystructvar;

我們要做的是定義一個含有三個元素的關(guān)聯(lián)數(shù)組，下標分別為field1、field2、field3，如：

%mystructvar = ("field1" , "" ,
"field2" , "" ,
"field3" , "" ,);

像上面C語言的定義一樣，這個關(guān)聯(lián)數(shù)組%mystrctvar有三個元素，下標分別為field1、field2、field3，各元素初始值均為空串。對各元素的訪問和賦值通過指定下標來進行，如：
$mystructvar{"field1"} = 17;

3、樹

另一個經(jīng)常使用的數(shù)據(jù)結(jié)構(gòu)是樹。樹與鏈表類似，但每個節(jié)點指向的元素多于一個。最簡單的樹是二叉樹，每個節(jié)點指向另外兩個元素，稱為左子節(jié)點和右子節(jié)點（或稱孩子），每個子節(jié)點又指向兩個孫子節(jié)點，依此類推。
注：此處所說的樹像上述鏈表一樣是單向的，每個節(jié)點指向其子節(jié)點，但子節(jié)點并不指向父節(jié)點。
樹的概念可以如下描述：

因為每個子節(jié)點均為一個樹，所以左/右子節(jié)點也稱為左/右子樹。（有時稱左/右分支）
第一個節(jié)點（不是任何節(jié)點的子節(jié)點的節(jié)點）稱為樹的根。
沒有孩子（子節(jié)點）的節(jié)點稱為葉節(jié)點。
有多種使用關(guān)聯(lián)數(shù)組實現(xiàn)樹結(jié)構(gòu)的方法，最好的一種應(yīng)該是：給子節(jié)點分別加上left和right以訪問之。例如，alphaleft和alpharight指向alpha的左右子節(jié)點。下面是用此方法創(chuàng)建二叉樹并遍歷的例程：

1 : #!/usr/local/bin/perl
2 :
3 : $rootname = "parent";
4 : %tree = ("parentleft", "child1",
5 : "parentright", "child2",
6 : "child1left", "grandchild1",
7 : "child1right", "grandchild2",
8 : "child2left", "grandchild3",
9 : "child2right", "grandchild4");
10: # traverse tree, printing its elements
11: &print_tree($rootname);
12:
13: sub print_tree {
14: local ($nodename) = @_;
15: local ($leftchildname, $rightchildname);
16:
17: $leftchildname = $nodename . "left";
18: $rightchildname = $nodename . "right";
19: if ($tree{$leftchildname} ne "") {
20: &print_tree($tree{$leftchildname});
21: }
22: print ("$nodenamen");
23: if ($tree{$rightchildname} ne "") {
24: &print_tree($tree{$rightchildname});
25: }
26: }

結(jié)果輸出如下：

grandchild1
child1
grandchild2
parent
grandchild3
child2
grandchild4