Perl 语言编程 - Linux教程

THATCODE => sub { $_[0] ** $_[1] },HANDLE=> \*STDOUT,};TEXT 域 是 一 个 简 单 的 字 串 。 因 此 你 可 以 简 单 的 打 印 它 :print $rec->{TEXT};SEQUENCE 和 LOOKUP 都 是 普 通 的 数 组 和 散 列 引 用 :print $rec->{SEQUENCE }[0];$last = pop @{ $rec->{SEQUENCE} };print $rec->{LOOKUP}{"key"};($first_k, $first_v) = each %{ $rec->{LOOKUP} };THATCODE 是 一 个 命 名 子 过 程 而 THISCODE 是 一 个 匿 名 子 过 程 , 但 是 它 们 的 调 用 是 一样 的 :$that_answer = $rec->{THATCODE}->($arg1, $arg2);$this_answer = $rec->{THISCODE}->($arg1, $arg2);再 加 上 一 对 花 括 弧 , 你 可 以 把 $rec->{HANDLE} 看 作 一 个 间 接 的 对 象 :print { $rec->{HANDLE} } "a string \n";如 果 你 在 使 用 FileHandle ?模 块 , 你 甚 至 可 以 把 该 句 柄 看 作 一 个 普 通 的 对 象 :use FileHandle;$rec->{HANDLE}->autoflush(1);$rec->{HANDLE}->print("a string\n");9.6.2 甚 至 更 灵 活 的 记 录 的 组 合 , 访 问 和 打 印自 然 , 你 的 数 据 结 构 的 域 本 身 也 可 以 是 任 意 复 杂 的 数 据 结 构 :%TV = (259