Perl 语言编程 - Linux教程

}1;最 后 四 行 以 我 们 的 观 点 来 说 是 非 常 时 髦 的 。 为 了 解 释 这 里 在 做 什 么 , 请 回 过 头 看 一 眼 第 八 章 ,引 用 , 里 面 的 “ 作 为 函 数 模 板 的 闭 合 ”。下 面 是 一 套 更 怪 异 的 类 。 它 的 包 名 字 应 该 给 你 一 些 关 于 它 是 干 什 么 的 线 索 。use strict;package Tie::DevNullsub TIEHANDLE {my $class = shift;my $fh = local *FH;bless \$fh, $class;}for (qw(READ READLINE GETC PRINT PRINTF WRITE)) {no strict 'refs';*$_ = sub { return };}package Tie::DevRandom;sub READLINE { rand() . "\n"; }sub TIEHANDLE {my $class = shift;my $fh = local *FH;392