Perl 语言编程 - Linux教程

当 然 , 你 不 必 命 名 那 个 临 时 的 数 组 , 因 此 你 还 可 以 说 :while(){push @AoA, [ split ];}如 果 你 想 要 一 个 指 向 一 个 数 组 的 数 组 的 引 用 , 你 可 以 这 么 做 :while (){push @ref_to_AoA, [ split ];}这 些 例 子 都 向 数 组 的 数 组 增 加 新 的 行 。 那 么 如 何 增 加 新 的 列 呢 ? 如 果 你 只 是 对 付 两 维 数 组 ,通 常 更 简 单 的 方 法 是 使 用 简 单 的 赋 值 :( 注 : 和 前 面 的 临 时 赋 值 一 样 , 我 们 在 这 里 已 经 简 化了 ; 在 这 一 章 的 循 环 在 实 际 的 代 码 中 应 该 写 做 my $x。)for $x (0..9){ # 对 每 一 行 ...for $y (0..9) { # 对 每 一 列 ...$AoA[$x][$y] = func($x, $y);# ... 设 置 调 用}}for $x (0..9) { # 对 每 一 行 ...$ref_to_AoA->[$x][3] = func2($x);# ... 设 置 第 四 行}至 于 你 给 元 素 赋 值 的 顺 序 如 何 则 没 有 什 么 关 系 , 而 且 @AoA 的 脚 标 元 素 是 否 存 在 也 没 有 什么 关 系 ;Perl 会 很 开 心 地 为 你 创 建 它 们 , 并 且 把 中 间 的 元 素 根 据 需 要 设 置 为 未 定 义 值 。( 如果 有 必 要 ,Perl 甚 至 会 为 你 在 $ref_to_AoA 中 创 建 最 初 的 引 用 。) 如 果 你 只 是 想 附 加 一行 , 你 就 得 做 得 更 奇 妙 一 些 :# 向 一 个 已 经 存 在 的 行 中 附 加 一 个 新 列push @{ $AoA[0] }, "wilma", "betty";239