Perl 语言编程 - Linux教程

$FORMAT_NAME= "My_Other_Format";$FORMAT_TOP_name = "My_Top_Format";select($ofh);但 是 你 仍 然 要 调 用 这 些 select, 如 果 你 想 避 免 使 用 他 们 , 使 用 Perl 集 成 的 FileHandle ?模 块 . 现 在 你 就 可 以 使 用 小 写 的 方 法 名 来 访 问 这 些 特 殊 变 量 :use FileHandle;OUTF->format_name("My_Other_Format");OUTF->format_top_name("My_Top_Format");这 样 看 起 来 更 好 !因 为 跟 在 格 式 行 后 面 的 数 值 行 可 以 包 含 任 意 的 表 达 式 ( 提 供 给 @ 域 , 而 不 是 ^ 域 ), 所 以你 可 以 使 用 一 些 高 级 的 处 理 , 象 sprintf 或 者 一 个 你 自 己 的 函 数 . 例 如 为 了 在 一 个 数 字 里面 插 入 一 些 逗 号 , 你 可 以 使 用 下 面 的 方 法 :format Ident =@