开源中文网

您的位置: 首页 > Tcl语言 > 正文

TCL学习之数组

来源: 正在努力的ICer的博客  作者: IamSarah

本篇文章主要讲述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是数组的下标,即index 
puts "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" 

运行结果如下:

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

Tags:习之 数组
相关文章列表:
关于开源中文网 - 联系我们 - 广告服务 - 网站地图 - 版权声明