Perl 语言编程 - Linux教程

$HoA{$group} = [ get_family($group) ];}for $group ( "simpsons", "jetsons", "flintstones" ) {@members = get_family($group);$HoA{$group} = [ @members ];}你 可 以 用 下 面 的 方 法 向 一 个 已 存 在 的 数 组 追 加 新 成 员 :push @{ $HoA{flintstones}}, "wilma", "pebbles";9.2.3 访 问 和 打 印 数 组 的 散 列你 可 以 用 下 面 的 方 法 设 置 某 一 数 组 的 第 一 个 元 素 :$HoA{flintstones}[0] = "Fred";要 让 第 二 个 Simpson 变 成 大 写 , 那 么 对 合 适 的 数 组 元 素 进 行 一 次 替 换 :$HoA{simpsons}[1] =~ s/(\w)/\u$1/;你 可 以 打 印 所 有 这 些 家 族 , 方 法 是 遍 历 该 散 列 的 所 有 键 字 :for $family ( keys %HoA ){print "$family: @{ $HoA{$family} }\n";}我 们 稍 微 多 做 一 些 努 力 , 你 就 可 以 一 样 追 加 数 组 索 引 :for $family ( keys %HoA ) {print "$family: ";for $i ( 0 .. $#{ $HoA{$family} }) {print " $i = $HoA{$family}[$i]";247