Perl 语言编程 - Linux教程

our $population = 0;sub pupulation { return $Population; }sub DESTROY {$Population --}sub spawn {my $invocant = shift;my $class = ref($invocant) || $invocant;$Population++;return bless { name => shift || "anon" }, $class;}sub name {my $self = shift;$self->{name} = shift if @_;return $self->{name};}如 果 你 想 把 类 数 据 方 法 做 得 想 实 例 数 据 的 指 示 器 那 样 , 这 么 做 :our $Debugging = 0;# 类 数 据sub debug {shift;# 有 意 忽 略 调 用 者$Debugging = shift if @_;return $Debugging;}现 在 你 可 以 为 给 该 类 或 者 它 的 任 何 实 例 设 置 全 局 调 试 级 别 。因 为 它 是 一 个 包 变 量 , 所 以 $Debugging 是 可 以 全 局 访 问 的 。 但 是 如 果 你 把 our 变 量 改成 my, 那 么 就 只 有 该 文 件 里 后 面 的 代 码 可 以 看 到 它 。 你 还 可 以 走 得 再 远 一 些 —— 你 可 以把 对 类 属 性 的 访 问 限 制 在 该 类 本 身 其 余 部 分 里 。 把 该 变 量 声 明 裹 在 一 个 块 范 围 里 :327