1. 数组的定义与格式

数组索引是由圆括号（）来指定的，每个数组元素变量名的格式是“数组名(索引值)”。数组元素使用 set 命令来定义和赋值：

语法：

• set arrName(index) value

也可以用 array 命令来定义一个数组： 

• array set arrName { index1 value1 index2 value2 ...} 

这个命令在定义数组的同时可以定义其元素和元素值。需要注意元素索引(index-n)与元素值(valun-n)要成对输入，否则会出错。用命令 array set arrName “”可以定义一个空数组。 

用普通变量值的获取方法——替换操作来获取数组元素值： 

• set val $arrName(index) 

数组元素索引也支持替换操作，包括变量和命令替换，如： 

• set val $arrName($index)
• set val $arrName([expr $index + 1]) 

Tcl 数组索引的值不象其他高级语言如 C 语言那样，要求一定是整数。 Tcl 允许索引值为包括数字字符在内的所有合法字符组成的字符串。 

数组示例：

• array set arr1 ""    #定义了一个空数组

• set array01(5) "Hello World"

  •  => Hello World

• puts $array01(5)

  •  => Hello World

• set array01(Hello) World

  •  => World

• puts $array01(Hello)

  •  => World

• array names array01  #array names命令显示数组元素名

  •  => Hello 5

• array set arr2 {1 a 2 b 3 c 4 d}

• array names arr2

  •  => 4 1 2 3

• parray arr2  #输出数组全部内容

  •  => arr2(1) = a
  •        arr2(2) = b
  •        arr2(3) = c
  •        arr2(4) = d

2. 数组变量 

可以象使用普通变量一样来使用数组变量元素。如使用 info exist 来检测它是否存在，使用incr 来递增它的值，使用 lappend 列表操作来追加列表元素等。 

示例：

• set arr(1) 10

• incr arr(1)

  •  => 11

可以使用替换获得数组名，如：

• set name Arr

  •  => Arr

• set ${name}(1) abc

  •  => abc

• puts $Arr(1)

  •  => abc

3. 多维数组 

Tcl 并没有直接支持像C语言数组的格式，使用者自己可以定义所谓的多维数组，如： 

• set arr(0, 0) 100

• set arr(0, 1) 200

• parray arr

  •  => arr(0, 0) = 100
  •        arr(0, 1) = 200

4. 数组操作命令 

数组操作命令表：

4.1 array get命令

array get 命令提取数组索引、元素值对并将这些值对组织成一个列表。而 array set 命令则将一个列表（数据要成对）转换成一个数组。 

• array set arr [list a AAA b BBB c CCC d DDD]

• array size arr  #数组元素个数

  •  => 4

• parray arr

  •  => arr(a) = AAA
  •        arr(b) = BBB
  •   arr(c) = CCC
  •   arr(d) = DDD

• set l1 [array get arr]

  •  => d DDD a AAA b BBB c CCC

4.2 array names命令

array names 返回所有元素索引名与模式 pattern 匹配的元素索引名列表。模式 pattern和 string match 的模式格式相同。如果 pattern 没有指定，则返回所有数组元素索引名列表。 

• array set a [list "School, BUPT" "BUPT" "School, NJU" "NJU" "School NJUA" "NJUA]

• parray a

  •  => a(School, BUPT) = BUPT

           => a(School, NJU) = NJU

    => a(School, NJUA) = NJUA

• array names a "School, *"

• =>School, NJU School, NJUA School, BUPT

• array names a "School, N*"

•  => School, NJU School, NJUA

• array names a

• =>School, NJU School, NJUA School, BUPT

4.3 遍历数组

如何对未知数组的每个元素进行操作呢，这可有多种方法。下面的例子提供了一个途径： 

• array set a1 [list a AAA b BBB c CCC d DDD]

• set l1 [array names a1]

  •  => d a b c

foreach id $l1 {

  puts "a1($id) = $a1($id)"

}

• •  => a1(d) = DDD

   a1(a) = AAA

   a1(b) = BBB

   a1(c) = CCC

array names 返回的元素索引的时候，最后一个元素的索引被放置到了列表的第一个位置上。 

4.4 用数组定义结构

Tcl 语言中没有结构类型，可以通过数组定义来实现相似的功能。 

• array set Struct [list name_ "" type_ "" value_ ""]

• parray Struct

•  => Struct(name_) = 

           Struct(type_) = 

      Struct(value_) =