foreach tcl

`foreach` 是 Tcl 编程语言中的一个循环结构，用于遍历列表中的元素并执行相应操作。它的语法如下：

foreach varName list ?varList? body

其中，`varName` 是一个变量名，用于在每次迭代中保存列表中的元素值。`list` 是要遍历的列表。`varList` 是可选参数，用于指定要同时遍历多个列表，并将对应位置的元素分别赋给不同的变量。`body` 是循环体，包含了要执行的操作。

以下是一个示例：

foreach element {1 2 3 4 5} {
  puts $element
}

在这个例子中，我们使用 `foreach` 循环遍历了一个包含五个元素的列表。在每次迭代中，将列表中的元素赋值给变量 `element`，然后在循环体中打印出该变量的值。

除了列表，`foreach` 还可以用于遍历数组、字典等数据结构。此外，还可以使用 `foreach` 迭代多个列表，并将对应位置的元素分别赋给不同的变量。