Perl 语言编程 - Linux教程

our @Current_Inventory;my $widget;foreach $widget (@Current_Inventory) {print "I have a $widget in stock today.\n";}}因 为 全 局 变 量 比 私 有 变 量 有 更 长 的 生 命 期 和 更 广 的 可 见 范 围 , 所 以 与 临 时 变 量 相 比 我 们 喜 欢为 它 们 使 用 更 长 和 更 鲜 明 的 名 字 。 如 果 你 有 意 遵 循 这 个 习 惯 , 它 可 以 象 use strict 一 样 起到 制 约 全 局 量 使 用 的 效 果 , 尤 其 是 对 那 些 不 愿 意 敲 字 的 人 。重 复 的 our 声 明 并 不 意 味 着 嵌 套 。 每 个 嵌 套 的 my 会 生 成 一 个 新 变 量 , 每 个 嵌 套 的 local也 生 成 一 个 新 变 量 。 但 是 每 次 你 使 用 our 的 时 候 , 你 实 际 上 是 说 同 一 个 变 量 , 不 管 你 有 没有 嵌 套 。 当 你 给 一 个 our 变 量 赋 值 时 , 其 作 用 在 整 个 声 明 范 围 都 起 作 用 。 这 是 因 为 our 从不 创 建 数 值 ; 它 只 是 提 供 一 种 有 限 制 地 访 问 全 局 量 的 形 式 , 该 形 式 永 远 存 活 :our $PROGRAM_NAME = "waiter";{our $PROGRAM_NAME = "server";# 这 里 调 用 的 代 码 看 到 的 是 "server"}# 这 里 执 行 的 代 码 看 到 的 仍 然 是 "server".而 对 于 my 和 local 来 说 , 在 块 之 后 , 外 层 变 量 或 值 再 次 可 见 :my $i = 10;{my $i = 99;...}139