Perl 语言编程 - Linux教程

$self->{race} = "unknown";$self->{aliases} = [];return $self;}sub name {my Person $self = shift;$self->{name} = shift if @_;return $self->{name};}sub race {my Person $self = shift;$self->{race} = shift if @_;return $self->{race};}sub aliases {my Person $self = shift;$self->{aliases} = shift if @_;return $self->{aliases};}1;如 果 你 不 小 心 拼 错 了 一 个 用 于 访 问 伪 散 列 的 文 本 键 字 , 你 用 不 着 等 到 运 行 时 才 发 现 这 些 问题 。 编 译 器 知 道 对 象 $self 想 要 引 用 的 数 据 类 型 ( 因 为 你 告 诉 它 了 ), 因 此 它 就 可 以 那 些只 访 问 Person 对 象 实 际 拥 有 的 数 据 域 的 代 码 。 如 果 你 走 神 了 , 并 且 想 访 问 一 个 不 存 在 的数 据 域 ( 比 如 $self->{mane}), 那 么 编 译 器 可 以 马 上 标 出 这 个 错 误 并 且 绝 对 不 会 让 有错 误 的 程 序 跑 到 解 释 器 那 里 运 行 。315