Perl 语言编程 - Linux教程

jetsons => [ "george", "jane", "elroy" ],simpsons => [ "homer", "marge", "bart" ],);要 向 散 列 增 加 另 外 一 个 数 组 , 你 可 以 简 单 地 说 :$HoA{teletubbies} = [ "tinky winky", "dipsy", "laa-laa", "po" ];9.2.2 生 成 数 组 的 散 列下 面 是 填 充 一 个 数 组 的 散 列 的 技 巧 。 从 下 面 格 式 的 文 件 中 读 取 出 来 :flintsotnes:fred barney wilma dinojetsons:simpsons:george jane elroyhomer marge bart你 可 以 用 下 列 两 个 循 环 之 一 :while( ) {next unless s/^(.*?):\S*//;$HoA{$1} = [ split ];}while ( $line = ) {($who, $rest) = split /:\S*/, $line, 2;@fields = spilt ' ', $rest;$HoA{$who} = [ @fields ];}如 果 你 有 一 个 子 过 程 叫 get_family, 它 返 回 一 个 数 组 , 那 么 你 可 以 用 下 面 两 个 循 环 之 一 填充 %HoA:for $group ( "simpsons", "jetsons", "flintstones" ) {246