Tcl数组遍历

数组的四种遍历方式

最新推荐文章于 2025-06-23 21:42:57 发布

原创最新推荐文章于 2025-06-23 21:42:57 发布 · 4.6k 阅读

14 ·

CC 4.0 BY-SA版权

文章标签：

#数组 #遍历

Tcl 专栏收录该内容

34 篇文章

订阅专栏

博客介绍了数组的遍历方法，通过循环控制命令与数组命令结合，有四种遍历方式，分别是foreach与array names遍历元素名、foreach与array get同时遍历名值、for与相关命令循环元素名、whiler与相关命令循环元素名。

假设有如下数组：

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

通过循环控制命令与数组命令结合使用，有如下四种遍历方式：

1.foreach与array names遍历数组元素名。

foreach name [array names arr] {
    puts "name:$name->value:$arr($name)"
}

2.foreach与array get同时遍历数组元素的名值。

foreach {name value} [array get arr] {
    puts "name:$name->value:$value"
}

3.for与array startsearch等一系列命令循环数组元素名。

for {set searchId [array startsearch arr]} {[array anymore arr $searchId]==1} {} {
	set name [array nextelement arr $searchId]
	puts "name:$name->value:$arr($name)"
}
array donesearch arr $searchId

4.whiler与array startsearch等一系列命令循环数组元素名。

set searchId [array startsearch arr]
while {[array anymore arr $searchId]==1} {
	set name [array nextelement arr $searchId]
	puts "name:$name->value:$arr($name)"
}
array donesearch arr $searchId