tcl 如何定义数组

在Tcl语言中，数组是一个非常灵活的数据结构，可以用来存储键值对（key-value pairs）。定义一个数组并给它赋值通常使用以下语法：

set array_name(index) value

这里，`array_name` 是数组的名称，`index` 是数组元素的键（也称为索引），而 `value` 是与该键相关联的值。可以通过这种方式向数组添加任意数量的元素。

例如，定义一个名为 `fruit` 的数组并初始化三个元素可以这样做：

set fruit(1) "苹果"
set fruit(2) "香蕉"
set fruit(3) "橙子"

在Tcl中，数组可以动态增长，即不需要预先声明数组的大小，你可以在任何时刻为数组添加新的索引和值。

获取数组元素的值同样简单，只需要使用如下语法：

set value $fruit(index)

如果你想获取所有数组的索引，可以使用 `array names` 命令：

array names fruit

这将返回数组 `fruit` 中所有索引的列表。