Perl 语言编程 - Linux教程

print CALC "$sum * $sum\n";$sum = ;print "$_: $sum";chomp $sum;}close CALC;我 们 可 以 看 到 打 印 出 下 面 的 东 西 :1: 42: 163: 2564: 655365: 42949672966: 184467440737095516167: 340282366920938463463374607431768211456如 果 你 的 机 器 里 有 bc 而 且 还 有 象 下 面 这 样 定 义 的 Tie::Open2, 那 么 你 就 能 看 到 上 面 预期 的 输 出 。 这 次 我 们 给 我 们 的 内 部 对 象 用 了 一 个 赐 福 了 的 数 组 。 它 包 含 我 们 的 两 个 真 正 的 文件 句 柄 用 于 读 和 写 。( 打 开 一 个 双 头 管 道 的 脏 活 由 IPC::Open2 干 ; 我 们 只 做 有 意 思 的 部分 。)package Tie::Open2;use strict;use Carp;use Tie::Handle;# 不 要 从 这 里 继 承use IPC::Open2;sub TIEHANDLE {389