控制结构
TCL中使用命令来实现程序控制结构，我们还可以自己编写扩展命令来扩充控制结构。常见的控制结构包括如下几种：
循环控制、条件判断、异常处理和执行脚本。这些结构控制命令都比较简单，和C/C++中的程序控制比较类似。但是在介绍控制结构之前，先有必要介绍一下Tcl中的布尔类型。
Boolean类型
再次强调，TCL中一切都是字符串，没有类型。这里所说的Boolean类型，指的是在条件判断的时候，什么东西被当作True，什么被当作False。请记住如下规则：
1.字符串：Yes，Y，True，T，On。不管大小写，当作条件来判断时，会被认为是True；
2.字符串：No，N，False，F，Off。不管大小写，当作条件来判断时，会被认为是
False；
3.数字0（整数或者浮点）会被当作False，任何非0的整数或者浮点数都会被当作
True；
例如：
% while 0.00e23 "puts ccc;break;" ;#False
% while 0. "puts ccc;break;" ;#False
% while 0.1 "puts ccc;break;" ;#True
ccc
% while T "puts ccc;break;" ;#True
ccc
% while 1023 "puts ccc;break;" ;#True
ccc
% while T "puts ccc;break;" ;#True
ccc
条件判断
TCL中的条件判断主要是两个命令：if和switch。
if…else
if命令的格式如下：
if expr1 ?then? body1elseif expr2 ?then? body2elseif ... ?else? ?bodyN?
可以看见，if命令的参数then是可以省略的。这给喜欢Pascal风格和C风格的不同的编程人员，都带来了怀旧的机会。Pascal中then是必须的。C中是没有then的。
if命令中的条件表达式expr可以写成多行，只要是一个字符串都可以。如果写成多行，那么最好加上then，这样看起来就比较方便。
这个命令的具体执行我就不详细解释了。要注意的是最后的else，如果没有else，那么就不能有bodyN，如果有了else，就必须有bodyN。请看例子：
if {$vbl == 1} {
puts "vbl is one"
} elseif {$vbl == 2} {
puts "vbl is two"
} else {
puts "vbl is not one or two"
}
switch
相比if…else，switch命令则要复杂很多。它有两种语法形式：
1.switch ?options? string pattern body ?pattern body ...?
2.switch ?options? string {pattern body ?pattern body ...?}
两种形式功能上完全等价，我们一般建议采用第二种，它和C语言的语法比较接近：所有的候选值和对应的代码全部都放在一个花括号中。但是如果需要对pattern和body等进行替换，那么第一个形式就比较方便。
switch的选项参数可以为：
1.-exact：这是默认情况，表示参数string和模式pattern的精确匹配；
2.-glob：表示采用glob模式进行匹配。匹配方法参考string match命令；
3.-regexp：表示采用正则表达式进行匹配，string是字符串，而pattern是正则表达式；
4.--：表示选项参数到此为止，后面的是参数string。这是为了防止参数string的第一
个字符就是“-”而引起非法选项的错误。
该命令的执行过程：根据选项指定的匹配模式，逐个将string和pattern进行匹配，如果匹配成功，那么就执行pattern后面对应的代码，并且返回该代码的结果。如果最后的一个模式是default，安么它匹配任意字符串。如果string没有一个匹配成功并且没有default，那
么switch直接返回空。
如果某一个pattern对应的body为“-”，那么表示这个pattern和下一个pattern共享一个body。这和C语言中的case 1:case2:{…}比较类似。
switch中的-regexp
请看下面的几个例子：
set r "abbbcc"
switch -regexp $r {
ab{2}c { puts "1" }
ab{3}c { puts "2" }
ab{3}c{2} { puts "3" }
}
上面采用正则表达式进行匹配，显然，第三个表达式才是和$r完全匹配的。但是上面的代码执行输出是“2”。这给我们一个重要的启示：
switch中的-regexp匹配选项，实质上就是把pattern拿出来在string中进行正则表达式查找，也就是执行regexp命令，如果regexp返回1（也就是在string中找到了pattern），那么就算匹配成功，就开始执行后面的body。而根本不管pattern是不是恰好匹配了整个string！
上面这一点务必牢记。
对-glob选项，则没有这样的问题。选项pattern和string只有完全匹配的时候才算匹配成功。也就是说执行命令string match $pattern $string返回1，才算匹配成功。
注释的位置
如果使用switch的第二种语法形式，那么就要注意switch中注释的正确位置。注释只有放在各个body中才是正确的注释，如果放在其它地方，会出现语法错误。例如：
set r "abbbcc"
switch -glob $r {
a {
#匹配失败，不可能执行到这里
puts "1"
#正确的注释
}
a*cc { puts "2" }
#放到这里，是错误的注释
