Perl 语言编程 - Linux教程

回 一 个 数 据 库 句 柄 对 象 , 而 另 外 一 个 叫 prepare 的 构 造 器 是 当 作 一 个 实 例 方 法 调 用 的 , 并且 返 回 一 个 语 句 句 柄 对 象 。 不 过 如 果 没 有 很 好 的 适 合 环 境 的 构 造 器 名 字 , 那 么 new 也 不 算是 一 个 太 坏 的 选 择 。 而 且 , 随 便 挑 一 个 名 字 , 这 样 强 制 人 们 在 使 用 构 造 器 之 前 去 读 接 口 文 档( 也 就 是 类 的 文 档 ) 也 不 是 太 坏 的 事 情 。更 灵 活 一 些 , 你 可 以 用 缺 省 键 字 / 数 值 对 设 置 你 的 构 造 器 , 这 些 参 数 可 以 由 用 户 在 使 用 的 时候 通 过 提 供 参 数 而 覆 盖 掉 :sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {color => "bay",legs => 4,owner => undef,@_,# 覆 盖 以 前 的 属 性};return bless $self, $class;}$ed = Horse->new; # 四 腿 湾 马$stallion = Horse->new(color => "black"); # 四 腿 黑 马当 把 这 个 Horse 构 造 器 当 作 实 例 方 法 使 用 的 时 候 , 它 忽 略 它 的 调 用 者 现 有 的 属 性 。 你 可 以设 计 第 二 个 构 造 器 , 把 它 当 作 实 例 方 法 来 调 用 , 如 果 你 设 计 得 合 理 , 那 你 就 可 以 使 用 来 自 调用 对 象 的 数 值 作 为 新 生 成 的 对 象 的 缺 省 值 :$steed = Horse->new(color => "dun");$foal = $steed->clone(owner => "EquuGen Guild, Ltd.");297