Perl 语言编程 - Linux教程

$description.除 非 一 个 格 式 是 在 词 法 变 量 的 作 用 范 围 内 定 义 , 否 则 该 词 法 变 量 在 格 式 中 是 不 可 见 的 .在 同 一 个 输 出 通 道 中 将 print 和 write 混 合 起 来 是 可 以 的 , 但 是 你 必 须 自 己 操 作 特 殊 变 量$- ( 在 English 模 块 中 是 $FORMAT_LINES_LEFT).7.1 格 式 变 量当 前 的 格 式 名 字 存 储 在 $~ 中 ($FORMAT_NAME), 当 前 的 表 头 格 式 名 字 存 储 在 $^($FORMAT_TOP_NAME). 当 前 输 出 的 页 号 在 $% ($FORMAT_PAGE_NUMBER), 每页 中 的 行 数 在 $= ($FORMAT_LINES_PER_PAGE). 是 否 自 动 刷 新 输 出 缓 冲 区 存 储 在 $|($FORMAT_AUTOFLUSH). 在 每 一 页 ( 除 了 第 一 页 ) 表 头 之 前 需 要 输 出 的 字 符 串 存 储 在$^L ($FORMAT_FORMFEED). 这 些 变 量 以 文 件 句 柄 为 基 础 设 定 , 因 此 你 需 要 select 与特 定 格 式 关 联 的 文 件 句 柄 来 影 响 这 些 格 式 变 量 :select((select(OUTF),$~ = "My_Other_Format",$^ = "My_Top_Format")[0]);是 不 是 很 难 看 ? 可 是 这 是 一 个 习 惯 用 法 , 因 此 当 你 看 见 它 时 不 要 感 到 惊 讶 . 你 至 少 可 以 使 用一 个 临 时 变 量 来 保 持 前 一 个 文 件 句 柄 :$ofh = select(OUTF);$~ = "My_Other_Format";$^ = "My_Top_Format";select($ofh);通 常 这 是 一 个 更 好 的 方 式 , 因 为 这 不 仅 仅 是 增 加 了 可 读 性 , 但 是 你 现 在 在 代 码 有 了 一 个 中间 语 句 , 这 样 你 可 以 在 单 步 调 试 的 时 候 可 以 在 这 里 停 下 来 , 如 果 你 使 用 English 模 块 , 你甚 至 可 以 这 样 读 取 变 量 名 字 :use English;$ofh = select(OUTF);203