Perl 语言编程 - Linux教程

截 断 一 个 数 组 并 不 回 收 其 内 存 。 你 必 须 undef(@whatever) 来 把 它 的 内 存 释 放 回 你 的 进程 的 内 存 池 里 。 你 可 能 无 法 把 它 释 放 回 你 的 系 统 的 内 存 池 , 因 为 几 乎 没 有 那 种 操 作 系 统 支 持这 样 做 。2.9 散 列如 前 所 述 , 散 列 只 是 一 种 有 趣 的 数 组 类 型 , 在 散 列 里 你 是 用 字 串 而 不 是 数 字 来 取 出 数 值 。 散列 定 义 键 字 和 值 之 间 的 关 联 , 因 此 散 列 通 常 被 那 些 打 字 不 偷 懒 的 人 称 做 关 联 数 组 。在 Perl 里 实 际 上 是 没 有 叫 什 么 散 列 文 本 的 东 西 的 , 但 是 如 果 你 给 一 个 散 列 赋 一 个 普 通 列 表的 值 , 列 表 里 的 每 一 对 值 将 被 当 作 一 对 键 字 / 数 值 关 联 :%map = ('red', 0xff0000,'green', 0x00ff00,'blue',0x0000ff);上 面 形 式 和 下 面 的 形 式 作 用 相 同 :%map = ();# 先 清 除 散 列$map{red} = 0xfff0000;$map{green} = 0x00ff00;$map{blue} = 0x0000ff;通 常 在 键 字 / 数 值 之 间 使 用 => 操 作 符 会 有 更 好 的 可 读 性 。=> 操 作 符 只 是 逗 号 的 同 义 词 ,不 过 却 有 更 好 的 视 觉 区 分 效 果 , 并 且 还 把 任 何 空 标 识 符 引 起 在 其 左 边 ( 就 象 上 面 的 花 括 弧 里面 的 标 识 符 ), 这 样 , 它 在 若 干 种 操 作 中 就 显 得 非 常 方 便 , 包 括 初 始 化 散 列 变 量 :%map = (red => 0xff0000,green => 0x00ff00,blue => 0x0000ff,);或 者 初 始 化 任 何 当 作 记 录 使 用 的 匿 名 散 列 引 用 :$rec = {NAME => 'John Simth',77