Perl 语言编程 - Linux教程

$wife{"Jacob"}[1] = "Rachel";$wife{"Jacob"}[2] = "Bilhah";$wife{"Jacob"}[3] = "Zilpah";你 可 以 从 上 边 看 出 , 这 看 起 来 象 一 个 具 有 一 个 字 符 串 下 标 和 一 个 数 字 下 标 的 多 维 数 组 . 为 了更 多 了 解 树 状 结 构 , 如 嵌 套 数 据 结 构 , 假 设 我 们 希 望 不 仅 能 列 出 Jocob 的 妻 子 , 而 且 同 时能 列 出 每 个 妻 子 的 所 生 的 儿 子 。 这 种 情 况 下 , 我 们 希 望 将 散 列 结 构 也 当 成 一 个 标 量 , 我 们 可以 使 用 花 括 弧 来 完 成 ( 在 每 个 散 列 值 中 , 象 上 个 例 子 一 样 用 中 括 弧 表 示 数 组 , 现 在 我 们 有 了一 个 在 散 列 中 的 散 列 中 的 数 组 )。$kids_of_wife{"Jacob"} = {"Zebulun"],"Leah"=> ["Reuben", "Simeon", "Levi", "Judah", "Issachar","Rachel" => ["Joseph", "Benjamin"],"Bilhah" => ["Dan", "Naphtali"],"Zilpah" => ["Gad", "Asher"],};同 样 , 我 们 也 可 以 象 下 面 这 样 表 示 :$kids_of_wife{"Jacob"}{"Leah"}[0]$kids_of_wife{"Jacob"}{"Leah"}[1]$kids_of_wife{"Jacob"}{"Leah"}[2]$kids_of_wife{"Jacob"}{"Leah"}[3]$kids_of_wife{"Jacob"}{"Leah"}[4]$kids_of_wife{"Jacob"}{"Leah"}[5]= "Reuben";= "Simeon";= "Levi";= "Judah";= "Issachar";= "Zebulun";$kids_of_wife{"Jacob"}{"Rachel"}[0] = "Joseph";$kids_of_wife{"Jacob"}{"Rachel"}[1] = "Benjamin";$kids_of_wife{"Jacob"}{"Bilhah"}[0] = "Dan";$kids_of_wife{"Jacob"}{"Bilhah"}[1] = "Naphtali";$kids_of_wife{"Jacob"}{"Zilpah"}[0] = "Gad";18