Perl 语言编程 - Linux教程

our @EXPORT_OK =qw($weight); # 按 要 求 输 出 的 符 号our $VERSION = 1.00; # 版 本 号### 在 这 里 包 含 你 的 变 量 和 函 数sub camel { print "One-hump dromedary" }$weight = 1024;1;一 个 程 序 现 在 可 以 说 use Bestiary 就 能 访 问 camel 函 数 ( 但 是 不 能 访 问 $weight 变量 ), 或 者 use Bestiary qw(camel, $weight) 可 以 访 问 函 数 和 变 量 。你 还 可 以 创 建 动 态 装 载 C 写 的 代 码 的 模 块 。 参 阅 第 二 十 一 章 , 内 部 和 外 部 , 获 取 细 节 。11.2.1 模 块 私 有 和 输 出 器Perl 不 会 自 动 在 它 的 模 块 的 私 有 / 公 有 边 界 上 进 行 检 查 —— 和 C++,JAVA 和 Ada 这 样的 语 言 不 同 ,Perl 不 会 被 强 加 的 私 有 性 质 搞 糊 涂 。Perl 希 望 你 呆 在 她 的 起 居 室 外 面 是 因 为你 没 有 收 到 邀 请 , 而 不 是 因 为 你 拿 着 一 把 手 枪 。Perl 模 块 和 其 用 户 之 间 有 一 种 约 定 , 有 一 部 分 是 常 见 规 则 而 另 外 一 部 分 是 单 写 的 。 常 见 规则 部 分 约 定 是 说 禁 止 一 个 模 块 修 改 任 何 没 有 允 许 它 修 改 的 名 字 空 间 。 为 模 块 单 写 的 约 定 ( 也就 是 文 档 ) 可 以 有 其 他 约 束 。 不 过 , 如 果 你 读 过 约 定 以 后 , 我 们 就 假 设 你 知 道 自 己 说 useReadfineTheWorld ? 的 时 候 就 是 在 重 定 义 世 界 , 并 且 你 愿 意 面 对 其 后 果 。 重 定 义 世 界 的 最常 用 的 方 法 是 使 用 Exporter 模 块 。 我 们 稍 后 在 本 章 中 就 能 看 到 , 你 甚 至 可 以 用 这 个 模 块重 定 义 内 建 的 东 西 。当 你 use 一 个 模 块 , 通 常 是 这 个 模 块 提 供 了 你 的 程 序 可 以 使 用 的 几 个 函 数 或 者 变 量 , 或 者更 准 确 地 说 , 为 你 的 程 序 的 当 前 包 提 供 了 函 数 和 变 量 。 这 种 从 模 块 输 出 符 号 ( 并 且 把 它 们 输入 到 你 的 程 序 里 ) 的 动 作 有 时 候 被 称 为 污 染 你 的 名 字 空 间 。 大 多 数 模 块 使 用 Exporter 来做 这 些 事 情 ; 这 就 是 为 什 么 在 接 近 顶 端 的 地 方 说 这 些 东 西 :279