22、Perl 中的数据结构与模块使用

Perl 中的数据结构与模块使用

1. 树状数据结构

在编程中，我们可以基于矩阵原理引入树状数据结构，这种结构会同时使用哈希和数组。以地址簿为例，它就是树状数据结构的经典应用。

1.1 简单地址簿实现

如果我们想把某人的地址和电话号码存于哈希中，可以这样写：

%paddy = (
    address => "23 Blue Jay Way",
    phone   => "404-6599"
);

不过，为地址簿里的每个人都创建一个单独的哈希并将其存于不同变量，在运行时操作不便，代码编写也很杂乱。这时，我们可以使用引用。

我们创建一个主“地址簿”哈希，用 $addressbook 引用，把其他人的哈希作为其值：

$addressbook{"Paddy Malone"} = {
    address => "23 Blue Jay Way",
    phone   => "404-6599"
};

注意 ：若使用了 use strict; 编译指令，在使用前需显式声明这个哈希，如 my %addressbook; 。

现在，从用户处获取新条目并添加到地址簿就很容易了：

pri