TCL(Tool Command Language)学习笔记1-变量&循环&分支

set x 0 ; set y 0;#while循环的使用while {$x<6} {#switch结构的使用switch {[expr $x%3]} { 1{set y [expr $y+1] ;puts  x=$x,y=$y,{\$x%3}=[expr $x%3];}2{set y [expr $y-1] ;puts  x=$x,y=$y,{\$x%3}=[expr $x%3];}default{set y $y    ;puts  x=$x,y=$y,{\$x%3}=[expr $x%3];}}puts "set x [expr $x+1]"incr x #if分支结构if {$x == 4} {puts "x==4 ,and then break the loop."break} else {continue ;}}set i 0#for循环for {set i 0} {$i < 10} {incr i} {puts "Inner variable i=$i"}puts "Outer variable i=$i"