Perl 语言编程 - Linux教程

$bar =$$scalarref;push(@$arrayref, $filename);素$$arrarref[0] = "January"; # 设 置 @$arrayref 的 第 一 个 元@$arrayref[4..6]=qw/May June July/;# 设 置 若 干 个 @$arrayref 的 元 素%$hashref = (KEY => "RING", BIRD => "SING");$$hashref{KEY} = "VALUE";@$hashref{"KEY1", "KEY2"} = {"VAL1", "VAL2"};# 初 始 化 整 个 散 列# 设 置 一 个 键 字 / 数 值 对# 再 设 置 两 对&$coderef(1,2,3);print $handleref "output\n";这 种 类 型 的 解 引 用 只 能 使 用 一 个 简 单 的 标 量 变 量 ( 没 有 脚 标 的 那 种 )。 也 就 是 说 , 解 引 用 在任 何 数 组 或 者 散 列 查 找 之 前 发 生 ( 或 者 说 是 比 数 组 和 散 列 查 找 绑 定 得 更 紧 )。 还 是 让 我 们 用一 些 花 括 弧 来 把 我 们 的 意 思 表 示 得 明 确 一 些 : 一 个 象 $$arrayref[0] 这 样 的 表 达 式 等 于${$arrayref}[0] 并 且 意 思 是 数 组 的 第 一 个 元 素 由 $arrayref 指 向 。 类 似 的 ,$$hashref{KEY} 和 ${$hashref}{KEY} 一 样 , 并 且 和 ${$hashref{KEY}} 没 什 么关 系 , 后 者 将 对 一 个 叫 做 %hashref 的 散 列 里 的 记 录 进 行 解 引 用 的 操 作 。 你 在 意 识 到 这 一点 之 前 可 能 会 非 常 悲 惨 。你 可 以 实 现 多 层 引 用 和 解 引 用 , 方 法 是 连 接 合 适 的 趣 味 字 符 。 下 面 的 程 序 打 印 "howdy":$refrefref = \\\"howdy";print $$$$refrefref;你 可 以 认 为 美 圆 符 号 是 从 右 向 左 操 作 的 。 但 是 整 个 链 条 的 开 头 必 须 是 一 个 简 单 的 , 没 有 脚 标的 标 量 变 量 。 不 过 , 还 有 一 种 方 法 变 得 更 神 奇 , 这 个 方 法 我 们 前 面 已 经 偷 偷 用 过 了 , 我 们 会在 下 一 节 解 释 这 种 方 法 。218