perl 数据结构的构造

perl 数据结构的构造

下面简单介绍一些常用的赋值形式：

1）2维数组
$foo[$row][$col]=’test’;
这是典型的两维ARRAY，头一个$ROW,索引出的实际上是一个数组的引用，而后一个$COL则是对这个数组引用复原后索引到的真实数组元素的地址。
以上，数组的索引都是整数，多维数组实际上就是数组的数组，我这样认为。

2）HASH OF ARRAY
$foo{’night’}[1]=”8 Mar “;
这是一个数组的hash,每个hash的KEY 对应的值是一个数组的引用。因此，你可以用这种形式来构造一条记录，hash的key是记录的关键子，数组是的元素就是这个记录中的每个字段。

3) $my_friends[$i]{’name’}=”Night Sailer”;
$my_friends[$i]{’age’}=24;

这种是hash的数组，每个数组的元素都是一个hash的引用。同2）一样，这种结构可以用来创建记录，
与2）不同的是，字段的个数与名称都是已经确定了，当然，简单明了也是这种结构的好处。

4) $lookup{’night’}{’company’}=’nightsailer’;
$lookup{’night’}{’home adress’}=’Beijing Sanlihe road’;
这是hash of hash,前面hash的key中存的是另一个hash的引用。
这种结构是一种典型的查询表了，你可以根据名字索引到某个记录，然后根据字段名索引到相应的值。

5）$members{’linux’}{’progamming’}[0]{’name’}=’Perl’;
$members{’linux’}{’progamming’}[0]{’function’}=’gettime’;

这是一个比较复杂的结构，一般来说，记录中某个字段或元素又是引用了另外的一个结构的。
依次类推，使用array和hash就可以构造出极其复杂的数据结构。

6)$crazy->{FH}->print(&{$crazy->{myfun}}($crazy->{LIST}[0]))

这是一个很疯狂的数据结构，是吧。
这个结构首先是一个hash,hash中的每个key 分别存放着一个文件句柄，一个函数的引用，一个列表的引用，上面的代码，就是用列表中的第一个元素作为参数回调myfun函数,然后把输出结果打印到记录中指定的文件句柄，也就是打印到一个文件中去。