tcl中foreach循环用法

在Tcl中，foreach循环用于遍历列表或数组中的元素。以下是foreach循环的用法：

1. 遍历列表

语法： foreach 变量名 列表 { 执行语句 }

示例：

set list {apple orange banana}
foreach fruit $list {
    puts $fruit
}

输出：

apple
orange
banana

2. 遍历数组

语法：foreach 变量名 {key value} 数组名称 { 执行语句 }

示例：

array set my_array {name John age 25 gender M}
foreach {key value} [array get my_array] {
    puts "$key: $value"
}

输出：

age: 25
gender: M
name: John

以上就是Tcl中foreach循环的用法。