TCL学习笔记(Tcl_Tk入门经典（第2版）)

流程控制

if 命令

if {$x<0}{

   '''
} elseif {$x == 0} {
    ...
} elseif {$x == 1} {
   ...
} else {
  ...
}

注意：每一个左大括号都必须在它的的前一个单词的同一行，因为换行符就是命令分隔符。

 

循环命令：while、for、each

set b {}
set i [expr {[llength $a] - 1}]
while {$i >= 0}{
    lappend b {lindex $a $i}
    incr i -1
}

set b {}
for {set i [expr {[llength $s] - 1 }]} {$i >= 0} {incr i -1} {
    lappend b [lindex $a $i]
}

foreach 命令遍历一个列表中的所有元素。下面这段脚本实现了倒转列表的一个实现方式。

set b {}
foreach i $a {
    set b [linsert $b 0 $i]
}