Tcl - 数组(Arrays)

数组是使用索引的一组元素的数据排列。

set ArrayName(Index) value

下面显示了创建简单数组的示例。

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
puts $languages(0)
puts $languages(1)

执行以上代码后，将产生以下输出-

无涯教程网

Tcl
C Language

数组大小

计算大小数组的语法如下所示。

[array size variablename]

下面显示了打印数据大小的示例。

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
puts  [array size languages]

执行以上代码后，将产生以下输出-

无涯教程网

2

循环数组

下面显示了用于打印数组元素的简单数组迭代。

链接：https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-arrays.html

来源：LearnFk无涯教程网

#!/usr/bin/tclsh

set languages(0) Tcl
set languages(1) "C Language"
for { set index 0 }  { $index < [array size languages] }  { incr index } {
   puts "languages($index) : $languages($index)"
}

执行以上代码后，将产生以下输出-

无涯教程网

languages(0) : Tcl
languages(1) : C Language

获取元素

数组的存储和检索没有任何特定的顺序，下面显示了一个带有非数字索引的关联数组的简单示例。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
puts  $personA(Name)
puts  $personA(Age)

执行以上代码后，将产生以下输出-

无涯教程网

Dave
14

数组索引

检索数组索引的语法如下所示。

[array names variablename]

下面显示了打印数据索引的示例。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
puts [array names personA]

执行以上代码后，将产生以下输出-

无涯教程网

Age Name 

循环索引

您可以使用数组的索引来遍历关联数组。一个例子如下所示。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age) 14
foreach index [array names personA] {
   puts "personA($index): $personA($index)"
}

执行以上代码后，将产生以下输出-

无涯教程网

personA(Age): 14
personA(Name): Dave