13.07.2015 Views

Perl 语言编程 - Linux教程

Perl 语言编程 - Linux教程

Perl 语言编程 - Linux教程

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

}就 象 你 看 到 的 那 样 , 这 里 的 程 序 有 点 复 杂 。 这 就 是 为 什 么 很 多 时 候 你 用 一 个 临 时 变 量 事 情 会变 得 更 简 单 :for $i (0..$#AoA){$row = $AoA[$i];for $j (0..$@{$row}){print "element $i $j is $row->[$j]\n";}}9.1.4 片 段如 果 你 想 访 问 一 个 多 维 数 组 的 某 个 片 段 ( 一 行 的 一 部 分 ), 你 就 是 在 准 备 做 一 些 奇 特 的 脚 标处 理 。 指 针 箭 头 赋 予 我 们 一 种 访 问 单 一 变 量 的 极 好 的 方 法 , 但 是 对 于 片 段 而 言 却 没 有 这 么 好的 便 利 方 法 。 当 然 , 你 总 是 可 以 用 一 个 循 环 把 你 的 片 段 一 个 一 个 地 取 出 来 :@part = ();for ($y = 7; $y < 13; $y++) {push @part, $AoA[4][$y];}这 个 循 环 可 以 用 一 个 数 组 片 段 代 替 :@part = @{ $AoA[4] } [7..12];如 果 你 想 要 一 个 两 维 的 片 段 , 比 如 $x 在 4..8 而 $y 是 7..12, 下 面 是 实 现 的 一 些 方 法 :@newAoA = ();for ($startx = $x = 4; $x

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!