Perl 语言编程 - Linux教程

}SELF->READLINE当 用 尖 角 操 作 符 () 或 者 readline 读 句 柄 的 时 候 , 用 这 个 方 法 提 供 数 据 。 当 没 有 更 多 数据 可 读 的 时 候 , 这 个 方 法 应 该 返 回 undef。sub READLINE {my $self = shift;return ;}在 这 里 , 我 们 只 是 简 单 地 return , 这 样 , 根 据 标 量 环 境 还 是 列 表 环 境 , 这 个 方法 就 能 做 出 正 确 的 反 映 。SELF->GETC当 在 捆 绑 的 文 件 句 柄 上 使 用 getc 的 时 候 就 会 运 行 这 个 方 法 。sub GETC {my $self = shift;return getc($self);}和 我 们 Shout 类 的 几 个 方 法 类 似 ,GETC 只 是 简 单 地 调 用 相 应 的 Perl 内 建 的 函 数 然 后返 回 结 果 。SELF->OPEN(LIST)我 们 的 TIEHANDLE 方 法 本 身 就 打 开 一 个 文 件 , 但 是 一 个 使 用 Shout 类 的 程 序 在 那 之后 调 用 open 将 触 发 这 个 方 法 。sub OPEN {my $self = shift;my $form = shift;my $name = "$form@_";380