Perl 语言编程 - Linux教程

use Bestiary wq(:critters !:camelids);# 输 入 critters, 但 是 不 包 括 camelids把 一 个 符 号 排 除 在 输 出 列 表 之 外 ( 或 者 用 感 叹 号 明 确 地 从 输 入 列 表 里 删 除 ) 并 不 会 让 使 用 模块 的 程 序 无 法 访 问 它 。 该 程 序 总 是 可 以 通 过 带 完 整 修 饰 词 的 包 名 来 访 问 模 块 的 包 的 内 容 , 比如 %Bestiary::gecko。( 因 为 词 法 变 量 不 属 于 包 , 所 以 私 有 属 性 仍 然 可 实 现 : 参 阅 下 一章 的 “ 私 有 方 法 ”。)你 可 以 说 BEGIN {$Exporter::Verbose=1 }, 这 样 就 可 以 看 到 声 明 是 如 何 处 理 的 , 以及 实 际 上 有 什 么 东 西 输 入 到 你 的 包 里 。Exporter 本 身 是 一 个 Perl 模 块 , 如 果 你 觉 得 奇 怪 , 你 可 以 看 看 类 型 团 巧 妙 地 使 用 它 把 符号 从 一 个 包 输 出 的 另 一 个 包 , 在 Export 模 块 里 , 起 关 键 作 用 的 函 数 叫 import, 它 做 一些 必 要 的 别 名 工 作 , 把 一 个 包 里 的 符 号 体 现 在 另 外 一 个 包 里 。 实 际 上 , 一 个 use BestiaryLIST 语 句 和 下 面 的 语 句 完 全 一 样 :BEGIN {require Bestiary;import Bestiary LIST;}这 意 味 着 你 的 模 块 并 不 一 定 要 使 用 Exporter。 当 你 使 用 一 个 模 块 的 时 候 , 它 可 以 做 任 何 它喜 欢 干 的 事 情 , 因 为 use 只 是 为 那 个 模 块 调 用 普 通 的 import 方 法 , 而 你 可 以 把 这 个 方 法定 义 为 处 理 任 何 你 想 干 的 事 情 。11.2.1.1 不 用 Exporter 的 输 入 方 法 进 行 输 出Export 定 义 一 个 叫 export_to_level 的 方 法 , 用 于 你 ( 因 为 某 些 原 因 ) 不 能 直 接 调 用Exporter 的 import 方 法 的 情 况 下 。export_to_level 方 法 用 下 面 的 方 法 调 用 :MODULE->export_to_level($where_to_export, @what_to_export);这 里 的 $where_to_export 是 一 个 整 数 , 标 识 调 用 模 块 的 堆 栈 把 你 的 符 号 输 出 了 多 远 ,而 @what_to_export 是 是 一 个 数 组 , 里 面 列 出 要 输 出 的 所 有 符 号 ( 通 常 是 @_)。比 如 , 假 设 我 们 的 Bestiary 有 一 个 自 己 的 import 函 数 :package Bestiary; @ISA = qw(Exporter); @EXPORT_OK = qw($zoo);281