tcl中foreach循环用法

在 Tcl 中，foreach 循环用于迭代列表或数组中的项。它的语法如下：

foreach varName list ?varName list ...? script

其中，`varName` 是循环变量的名称，`list` 是要迭代的列表或数组。可以指定多个循环变量和列表，它们之间用空格隔开。`script` 是在每次迭代中执行的脚本。

以下是一些示例：

1. 迭代列表：

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

输出：

apple
banana
orange

2. 迭代数组：

array set colors {
    red #ff0000
    green #00ff00
    blue #0000ff
}
foreach key [array names colors] {
    puts "$key: $colors($key)"
}

输出：

red: #ff0000
green: #00ff00
blue: #0000ff

3. 使用多个循环变量：

set people {
    {Alice 25}
    {Bob 30}
    {Charlie 35}
}
foreach {name age} $people {
    puts "$name is $age years old"
}

输出：

Alice is 25 years old
Bob is 30 years old
Charlie is 35 years old