Perl 语言编程 - Linux教程

$a += 2;$a *= 3;本 招 并 非 绝 招 , 不 过 下 面 是 你 经 常 看 到 的 习 惯 用 语 :($new = $old) =~ s/foo/bar/g;无 论 什 么 情 况 , 赋 值 的 值 是 该 变 量 的 新 值 。 因 为 赋 值 操 作 符 从 右 向 左 结 合 , 所 以 这 一 点 可 以用 于 给 多 个 变 量 赋 同 一 个 值 , 比 如 :$a = $b = $c =0;把 0 赋 予 $c, 其 结 果 ( 还 是 0) 给 $b, 其 结 果 ( 依 然 为 0) 再 给 $a。列 表 赋 值 可 能 只 能 在 列 表 环 境 里 用 简 单 赋 值 操 作 符 ,=., 赋 值 。 列 表 赋 值 返 回 该 列 新 值 ,就 象 标 量 赋 值 一 样 。 在 标 量 环 境 里 , 列 表 赋 值 返 回 赋 值 右 边 可 获 得 的 值 的 数 目 , 就 象 我 们 在第 二 章 , 集 腋 成 裘 , 里 谈 到 的 一 样 。 我 们 可 以 利 用 这 个 特 性 测 试 一 个 失 败 ( 或 者 不 再 成 功 )时 返 回 空 列 表 的 函 数 , 比 如 :while (($key, $value) = each %gloss) { ... }next unless ($dev, $ino, $mode) = stat $file;3.18 逗 号 操 作 符双 目 “,” 是 逗 号 操 作 符 。 在 标 量 环 境 里 它 先 在 空 环 境 里 计 算 它 的 左 参 数 , 把 那 个 值 抛 弃 , 然后 在 标 量 环 境 里 计 算 它 的 右 参 数 并 且 返 回 之 。 就 象 C 的 逗 号 操 作 符 一 样 。 比 如 :$a = (1,3);把 3 赋 予 $a。 不 要 混 淆 标 量 环 境 用 法 和 列 表 环 境 用 法 。 在 列 表 环 境 里 , 逗 号 只 是 列 表 参数 的 分 隔 符 , 而 且 把 它 的 两 个 参 数 都 插 入 到 列 表 中 。 并 不 抛 弃 任 何 数 值 。比 如 , 如 果 你 把 前 面 例 子 改 为 :@a = (1,3);你 是 在 构 造 一 个 两 元 素 的 列 表 , 而 :109