Perl 语言编程 - Linux教程

over the lazy dog.END# 现 在 从 同 一 个 句 柄 中 读 回 来print while ;打 印 出 :The quick brown fox jumpsover the lazy dog.The quick brown fox jumps overover the lazy dog 3179357 times!The fox is now dead.--MORE--14.4.1 文 件 句 柄 捆 绑 方 法对 于 我 们 扩 展 的 例 子 而 言 , 我 们 将 创 建 一 个 文 件 句 柄 , 并 且 向 之 打 印 大 写 字 串 。 为 了 明 确 ,我 们 会 在 把 这 个 文 件 句 柄 打 开 的 时 候 向 它 打 印 , 而 当 结 束 关 闭 的 时 候 打 印 。 这 个 方 法 是 我们 从 格 式 优 良 的 XML 中 借 来 的 。下 面 是 我 们 将 实 现 这 个 类 的 shout.pm 文 件 的 开 头 :package Shout;use Carp;# 这 样 我 们 就 可 以 把 我 们 的 错 误 汇 报 出 来然 后 我 们 把 在 shout.pm 里 定 义 的 方 法 列 出 来 :CLASSNAME->TIEHANDLE(LIST)这 是 该 类 的 构 造 器 , 和 往 常 一 样 , 应 该 返 回 一 个 赐 福 了 的 引 用 。sub TIEHANDLE {my $class = shift;my $form = shift;378