Perl基础 Perl复杂数据结构
本文和大家重点讨论一下 Perl复杂数据结构的概念。Perl能使复杂的事情变得简单，方法是让你假装那些复杂的数值实际上是简单的东西．换句话说，Perl让你可以操作简单的标量，而这些标量碰巧是指向复杂数组和散列的引用．
Perl复杂数据结构
数组和散列是易用、简单平面的数据结构，很不幸，现实总不能如人所愿。很多时候你需要使用很难、复杂而且非平面的数据结构。Perl能使复杂的事情变得简单。方法是让你假装那些复杂的数值实际上是简单的东西．换句话说，Perl让你可以操作简单的标量，而这些标量碰巧是指向复杂数组和散列的引用．在自然语言中，我们总是用简单的单个名词来表示复杂的难以理解的实体，比如，用"政府"来代表一个关系复杂的硬壳等等．
继续讨论上个例子，假设我们想讨论Jacob的妻子而不是Adam的，而Jacob有四个妻子（自己可别这么干）。为了在Perl中表示这个数据结构，我们会希望能将Jocob的四个妻子当成一个来处理，但是我们会遇到一些问题。你可能认为我们可以用下面的语句来表示：
$wife{"Jacob"}=("Leah","Rachel",'Bilhah","Zilpah");#错
但是这并不能象你希望的那样运转，因为在Perl中括弧和逗号还不够强大，还不能将一个列表转换成为标量（在语法中，圆括弧用于分组，逗号用于分隔）。你需要明确地告诉Perl你想将一个列表当成一个标量。[]中括弧能够实现这个转换：
$wife{"Jacob"}=["Leah","Rachel","Bilhah","Zilpah"];#正确
这个语句创建了一个未命名的数组，并将这个数组的引用放入散列的元素$wife{“Jacob”}中．因此我们有了一个命名的散列，其中包含了一个未命名的数组.这就是Perl处理多维数组和嵌套数据类型的方法．同普通数组和散列的赋值方法一样，你可以单独对其进行赋值：
$wife{"Jacob"}[0]="Leah";
$wife{"Jacob"}[1]="Rachel";
$wife{"Jacob"}[2]="Bilhah";
$wife{"Jacob"}[3]="Zilpah"; 你可以从上边看出，这看起来象一个具有一个字符串下标和一个数字下标的多维数组．为了更多了解树状结构，如嵌套数据结构，假设我们希望不仅能列出Jocob的妻子，而且同时能列出每个妻子的所生的儿子，Perl复杂数据结构在这种情况下，我们希望将散列结构也当成一个标量，我们可以使用花括弧来完成（在每个散列值中，象上个例子一样用中括弧表示数组,现在我们有了一个在散列中的散列中的数组）。
$kids_of_wife{"Jacob"}={
"Leah"=>["Reuben","Simeon","Levi","Judah","Issachar","Zebulun"],
"Rachel"=>["Joseph","Benjamin"],
"Bilhah"=>["Dan","Naphtali"],
"Zilpah"=>["Gad","Asher"],};
同样，我们也可以象下面这样表示：