Perl 语言编程 - Linux教程

equire Exporter;our @ISA = ("Exporter");这 两 行 令 该 模 块 从 Exporter 类 中 继 承 下 来 。 我 们 在 下 一 章 讲 继 承 , 但 在 这 里 你 要 知 道 的所 有 东 西 就 是 我 们 的 Bestiary 模 块 现 在 可 以 用 类 似 下 面 的 行 把 符 号 输 出 到 其 他 包 里 :our @EXPORT =qw($camel %wolf ram); # 缺 省 输 出our @EXPORT =qw(leopard @llama $emu); # 请 求 时 输 出our %EXPORT_TAGS = (camelids => [qw($camel @llama)],critters => [qw(ram $camel %wolf)],);从 输 出 模 块 的 角 度 出 发 ,@EXPORT 数 组 包 含 缺 省 时 要 输 出 的 变 量 和 函 数 的 名 字 : 当 你 的程 序 说 use Bestary 的 时 候 得 到 的 东 西 。 在 @EXPORT_OK 里 的 变 量 和 函 数 只 有 当 程 序在 use 语 句 里 面 特 别 要 求 它 们 的 时 候 才 输 出 。 最 后 , %EXPORT_TAGS 里 的 键 字 / 数 值对 允 许 程 序 包 含 那 些 在 @EXPORT 和 @EXPORT_OK 里 面 列 出 的 特 定 的 符 号 组 。从 输 入 包 的 角 度 出 发 ,use 语 句 声 明 了 一 列 可 以 输 入 的 符 号 , 一 组 在 %EXPORT_TAGS里 面 的 名 字 , 一 个 符 号 的 模 式 或 者 什 么 也 没 有 , 这 时 在 @EXPORT 里 的 符 号 将 从 模 块 里 输入 到 你 的 程 序 里 。你 可 以 包 含 任 意 的 这 些 语 句 , 从 Bestiary 模 块 里 输 入 符 号 :use Bestiary;use Bestiary();# 输 入 @EXPORT 符 号# 什 么 也 不 输 入use Bestiary qw(ram @llama);use Bestiary qw(:camelids);use Bestiary qw(:DEFAULT);use Bestiary qw(/am/);use Bestiary qw(/^\$/);# 输 入 ram 函 数 和 @llama 数 组# 输 入 $camel 和 @llama# 输 入 @EXPORT 符 号# 输 入 $camle,@llama, 和 ram# 输 入 所 有 标 量use Bestiary wq(:critters !ram);# 输 入 citters 但 是 把 ram 排 除280