Perl 语言编程 - Linux教程

$HoH{flintstones}{$what} = $new_floks{$what};}9.4.3 访 问 和 打 印 散 列 的 散 列你 可 以 用 下 面 的 方 法 设 置 键 字 / 数 值 对 :$HoH{flintstones}{wife} = "wilma";要 把 某 个 键 字 / 数 值 对 变 成 大 写 , 对 该 元 素 应 用 一 个 替 换 :$HoH{jetsons}{'his boy'} =~ s/(\w)/\u$1/;你 可 以 用 先 后 遍 历 内 外 层 散 列 键 字 的 方 法 打 印 所 有 家 族 :for $family ( keys %HoH ) {print "$family: ";for $role ( keys %{ $HoH{$family} } ){print "$role=$person ";}print "\n";}在 非 常 大 的 散 列 里 , 可 能 用 each 同 时 把 键 字 和 数 值 都 检 索 出 来 会 略 微 快 一 些 ( 这 样 做 可以 避 免 排 序 ):while ( ($family, $roles) = each %HoH ) {print "$family: ";while ( ($role, $person) = each %$roles ) {print "$role=$person";}print "\n";}255