TCL学习之数组

本篇文章主要讲述TCL语言中对于数组操作的相关命令。

1.array  exists arrayName：判断一个数组是否存在，数组存在返回1，数组不存在返回0

2.array names arrayName?pattern :返回一个数组的指示列表，相当于数组的第一维，如果没有匹配串则完全返回。

3.array size array name:返回数组的列数，相当于数组的第二维数目。

4.array get arrayName:取得数组的值列表，它使得数组的赋值变得简单。例如：array set arrayX[array get array Y],实现了将arrayY赋值给arrayX.

5.array set arrayName datalist:数组定义。

array set array1 [list {123} {Abigail Aardvark} {234} {Bob Baboon}\{345} {Cathy Coyote}\{456} {Daniel Dog}]puts "Array1 has [array size array1] entries\n"puts "Array1 has the following entries:\n[array names array1]\n"puts "ID number 123 belongs to $array1(123)\n"set array1(123) {modified}#这里123是数组的下标，即indexputs "ID number 123 belongs to $array1(123)\n"

运行结果如下图：

数组定义如下：

array set array1 [list {123} {Abigail Aardvark} {234} {Bob Baboon}\{345} {Cathy Coyote}\{456} {Daniel Dog}]array set array3 [array get array1]puts "Array3 has [array size array3] entries\n"puts "array3 has the following entries:\n[array names array3]\n"puts "array3 has the following entries while using pattern:\n [array names array3 *2*]\n"puts "ID number 123 belongs to $array3(123)\n"if {[array exist array1]} {puts "array1 is an array"} else {puts "array1 is not an array"}

运行结果如下：

以上就是关于数组的一些函数的应用。