Tcl循环语句

for 开始 判断语句 变量自增（自检） 循环体

示例代码：

for {set i 0} {$i<10} {incr i} {

    puts "I is: $i "

}

运行结果

 

While 判断语句 循环体

示例代码：

set x 0

while {$x<5} {

    set x [expr $x+$x+1]

    puts "X: $x"

}

运行结果：

 

foreach 变量名 列表 循环体

队列表中的每一个元素循环执行Tcl脚本块，依次将列表中的值赋给变量名

示例代码：

set total 0

foreach num {1 2 3 4 5} {

    set total [expr $total+$num]

}

puts "The total is: $total"

运行结果：

 

foreach 变量列表1 数据列表1 变量列表2 数据列表2 ... 循环体

示例代码：

foreach {pres date} {{George Washington} {1789-1797}

                     {John Adams} {1797-1801}

                     {Thomas Jefferson} {1801-1809}

                     {James Madison} {1809-1817}

                     {James Monroe} {1817-1825}

} state {Virginia Massachusetts Virginia Virginia Virginia} {

    puts "$pres was from $state and served from $date"

}

在foreach当中变量列表和数据列表不匹配，则不匹配部分用空字符串来代替

示例代码：

foreach {pres date} {{George Washington} {1789-1797}

                     {John Adams} {1797-1801}

                     {Thomas Jefferson} {1801-1809}

                     {James Madison} {1809-1817}

                     {James Monroe} {1817-1825}

                     {BillClinton} {1992-2000}

} state {Virginia Massachusetts Virginia Virginia Virginia} {

    puts "$pres was from $state and served from $date"

}