Tcl条件语句

If {条件表达式1}
{

执行语句1

} elseif {条件表达式2}
{

执行语句2

} elseif {条件表达式3}
{

执行语句3

} else
{

执行语句4

}

注：elseif
{条件表达式}为可选

示例：

错误格式：

if
{$x<0}

{

set
x 0

}

正确格式：

if {$x<0} {set x 0}
（不推荐）

if
{$x<0} {

set x
0

}

脚本：

set x
2

set y
3

if
{$x<$y} {

puts
"x is less than y"

}

运行结果：

switch 匹配模式(可选) 字符串 模式1 对应的tcl脚本1 模式2（可选）对应的tcl脚本2 ...
default对应的tcl脚本

匹配模式：1、-exact 精确匹配模式（默认模式）

2、-glob 字符串匹配模式

3、-regexp 正则表达式匹配模式

switch匹配模式(可选) 字符串 {

模式1 对应的tcl脚本1

模式2 对应的tcl脚本2

....

模式N 对应的tcl脚本N

default
对应的tcl脚本

}

脚本示例1：

set x
7

set y
7

switch $x
\

$y {puts
"X=Y"} \

{[0-9]} {puts
"<10"} \

default {puts
">10"}

运行结果：

脚本示例2：

set x
7

switch -glob
$x {

"1"
{puts "one"}

"2"
{puts "two"}

"3"
{puts "three"}

"$y"
{puts "X=Y"}

{[4-9]}
{puts "greater than 3"}

default
{puts "Not a value bettwen 1 and 9"}

}

执行结果：

示例脚本3：

puts "Who
recorded 'Mr Tambourine Man'"

gets stdin
artist

switch
$artist {

{Bob
Dylan} -

{Judy
Collins} -

{Glen
Campbell} -

{The
Byrds} {

puts
"$artist recorded 'Mr Tambourine Man'"

}

default
{

puts
"$artist probably recorded 'Mr Tambourine Man'"

}

}

运行结果：

注：模式 -这样的形式表示这个模式和下一个模式执行相同的tcl语句