5、Perl 编程：Typeglobs 与高级子程序处理

Perl 编程：Typeglobs 与高级子程序处理

1. Typeglobs 基础

Typeglobs 的主要目的是提供一种直接引用符号表中标识符的方法。在 Perl 引入引用之前，Typeglobs 是最常见的“按引用赋值”方法，不过使用 Typeglobs 的术语是“别名”而非“引用”。

1.1 符号表示例

以下是一个符号表的示例：
| Identifier | Data type | Value |
| — | — | — |
| names | Scalar | “Bob” |
| | Array | (“bob”, “sue”, “ted”) |
| | Hash | Undef |
| | Function | Undef |
| | Filehandle | Undef |
| age | Scalar | 25 |
| | Array | Undef |
| | Hash | Undef |
| | Function | {print “you are $age years old”}; |
| | Filehandle | Undef |

1.2 创建 Typeglobs

创建 Typeglobs 使用如下语法：

*typeglob=*identifier

示例：

DB<1> @names=q