Perl 语言编程 - Linux教程

$ok += print $fh @_;}return $ok = @$self;}Tie::Tee 类 模 拟 标 准 的 Unix tee (1) 程 序 , 它 把 一 个 输 出 流 发 送 到 多 个 不 同 的 目 的 。Tie::DevNull 类 模 拟 空 设 备 ,Unix 系 统 里 的 /dev/null 。 而 Tie::DevRandom 类 生成 可 以 用 做 句 柄 或 标 量 的 随 机 数 , 具 体 做 什 么 取 决 于 你 调 用 的 是 TIEHANDLE 还 是TIESCALAR! 下 面 是 你 调 用 它 们 的 方 法 :package main;tie *SCATTER,tie *RANDOM,"Tie::Tee", qw(tmp1 - tmp2 >tmp3 tmp4);"Tie::DevRandom";tie *NULL,"Tie::DevNull";tie my $randy, "Tie::DevRandom";for my $i (1..10) {my $line = ;chomp $line;for my $fh ( *NULL, *SCATTER) {print $fh "$i: $line $randy\n";}}这 个 程 序 在 你 的 屏 幕 上 输 出 类 似 下 面 的 东 西 :1: 0.124115571686165 0.208728194740742: 0.156618299751194 0.678171662366353394