目录
Tcl决策
? : 操作符
Tcl if语句
语法
流程图
示例
Tcl if...else 语句
语法
流程图
示例
if...else if...else 语句
语法
示例
Tcl 嵌套if语句
语法
示例
Tcl Switch语句
语法
流程图
例如：未加引号版本
例如：引用版本
Tcl嵌套Switch语句
语法
示例
Tcl决策
决策结构需要程序员指定的一个或多个条件进行评估，或由程序进行测试，如果条件被确定为真以及一条或多条语句，任选的其它语句，如果条件被确定为假则被执行。
以下是在大多数编程语言中找到的典型决策结构的一般形式：
TCL语言使用expr内部命令，因此它为我们声明使用expr的声明不是必需的。
TCL语言提供了以下几种类型的决策语句。
语名 | 描述 |
if语句 | if语句包含一个布尔表达式后跟一个或多个语句。 |
if...else语句 | if语句可以跟着一个可选的else语句，当else执行时，布尔表达式是假。 |
内嵌if语句 | 可以使用一个if 或else if 里面再声明 if 或 else if 语句(S)。 |
switch语句 | switch语句可以让一个变量对值列表相等进行测试。 |
内嵌switch语句 | 可以使用一个switch语句在另一个switch语句中。 |
? : 操作符
我们已经覆盖条件操作符 ？ ：在前面的章节中可以用它来代替 if ... else语句。以下是它的一般形式：
Exp1 ? Exp2 : Exp3;
计算Exp1，Exp2和Exp3表达式。注意使用和放置。
a的值？表达是确定这样：Exp1计算评估。如果是真的，那么Exp2后进行评估计算，并成为整个的值？表达式。如果计算Exp1是假的，那么Exp3计算它的值变为表达式的值。一个例子如下所示。
#!/usr/bin/tclsh
set a 10;
set b [expr $a == 1 ? 20: 30]
puts "Value of b is $b\n"
set b [expr $a == 10 ? 20: 30]
puts "Value of b is $b\n"
当编译和执行上面的程序，将会产生以下结果：
Value of b is 30
Value of b is 20
Tcl if语句
if语句包含一个布尔表达式后跟一个或多个语句。
语法
Tcl语言的if语句的语法是：
if {boolean_expression} {
# statement(s) will execute if the boolean expression is true
}如果代码里布尔表达式的值为真，那么if语句块将被执行。如果 if 语句的结束(右大括号后)布尔表达式的值为false，那么第一套代码会被执行。
TCL语言使用expr内部命令，因此它不是明确地使用expr语句声明所需的。
流程图
示例
#!/usr/bin/tclsh
set a 10
#check the boolean condition using if statement
if { $a < 20 } {
# if condition is true then print the following
puts "a is less than 20"
}
puts "value of a is : $a"
当上述代码被编译和执行时，它产生了以下结果：
a is less than 20
value of a is : 10
Tcl if...else 语句
if语句可以跟着一个可选的else语句，else语句块执行时，布尔表达式是假的。
语法
在Tcl语言的if ... else语句的语法是：
if {boolean_expression} {
# statement(s) will execute if the boolean expression is true
} else {
# statement(s) will execute if the boolean expression is false
}如果布尔表达式的值为true，那么if代码块将被执行，否则else块将被执行。
TCL语言使用expr内部命令，因此它不是明确地使用expr语句所需的。
流程图
示例
#!/usr/bin/tclsh
set a 100
#check the boolean condition
if {$a < 20 } {
#if condition is true then print the following
puts "a is less than 20"
} else {
#if condition is false then print the following
puts "a is not less than 20"
}
puts "value of a is : $a"
当上述代码被编译和执行时，它产生了以下结果：
a is not less than 20;
value of a is : 100
if...else if...else 语句
if语句可以跟着一个可选的else if ... else语句，使用单个if 测试各种条件if...else if 声明是非常有用的。
当使用if , else if , else语句有几点要记住：
- 一个if可以有零或一个else，它必须跟在else if之后。
- 一个if语句可以有零到多个else if，并且它们必须在else之前。
- 一旦一个 else if 成功，任何剩余else if 或else 不会再被测试。
语法
Tcl语言的 if...else if...else语句的语法是：
if {boolean_expression 1} {
# Executes when the boolean expression 1 is true
} elseif {boolean_expression 2} {
# Executes when the boolean expression 2 is true
} elseif {boolean_expression 3} {
# Executes when the boolean expression 3 is true
} else {
# executes when the none of the above condition is true
}示例
#!/usr/bin/tclsh
set a 100
#check the boolean condition
if { $a == 10 } {
# if condition is true then print the following
puts "Value of a is 10"
} elseif { $a == 20 } {
# if else if condition is true
puts "Value of a is 20"
} elseif { $a == 30 } {
# if else if condition is true
puts "Value of a is 30"
} else {
# if none of the conditions is true
puts "None of the values is matching"
}
puts "Exact value of a is: $a"
当上述代码被编译和执行时，它产生了以下结果：
None of the values is matching
Exact value of a is: 100
Tcl 嵌套if语句
Tcl嵌套if-else语句它始终是合法的，这意味着可以使用一个 if 或 else if 在另一 if 或 else if 声明中。
语法
嵌套if语句的语法如下：
if { boolean_expression 1 } {
# Executes when the boolean expression 1 is true
if {boolean_expression 2} {
# Executes when the boolean expression 2 is true
}
}可以嵌套else if...else 在类似嵌套if语句的方式。
示例
#!/usr/bin/tclsh
set a 100
set b 200
# check the boolean condition
if { $a == 100 } {
# if condition is true then check the following
if { $b == 200 } {
#if condition is true then print the following
puts "Value of a is 100 and b is 200"
}
}
puts "Exact value of a is : $a"
puts "Exact value of b is : $b"
当上述代码被编译和执行时，它产生了以下结果：
Value of a is 100 and b is 200
Exact value of a is : 100
Exact value of b is : 200
Tcl Switch语句
switch语句可以让一个变量值的列表进行相等测试。每个值被称为一个的情况(case)，该变量被接通检查每个switch case。
语法
Tcl语言未加引号的switch语句的语法如下：
switch switchingString matchString1 {body1} matchString2 {body2} ... matchStringn {bodyn}Tcl语言未加引号的switch语句的语法如下：
switch switchingString {
matchString1 {
body1
}
matchString2 {
body2
}
...
matchStringn {
bodyn
}
}以下规则适用于switch语句：
- 在switch语句中使用的switchingString通过比较matchString使用在不同块之间。
- 在一个switch内可以任何数量matchString块。
- switch语句可以具有可选默认块，其中必须出现在开关的末尾。缺省情况下，可用于执行任务时没有一个case是真实的。
流程图
例如：未加引号版本
#!/usr/bin/tclsh
set grade C;
switch $grade A { puts "Well done!" } B { puts "Excellent!" } C { puts "You passed!" } F { puts "Better try again" } default { puts "Invalid grade" }
puts "Your grade is $grade"
当上述代码被编译和执行时，它产生了以下结果：
You passed!
Your grade is C
例如：引用版本
#!/usr/bin/tclsh
set grade B;
switch $grade {
A {
puts "Well done!"
}
B {
puts "Excellent!"
}
C {
puts "You passed!"
}
F {
puts "Better try again"
}
default {
puts "Invalid grade"
}
}
puts "Your grade is $grade"
当上述代码被编译和执行时，它产生了以下结果：
Well done
Your grade is B
Tcl嵌套Switch语句
有可能有一个switch作为外开关的语句序列的一部分。即使在内外switch case 的常数包含共同的值，如果没有冲突将出现。
语法
嵌套switch语句的语法如下：
switch switchingString {
matchString1 {
body1
switch switchingString {
matchString1 {
body1
}
matchString2 {
body2
}
...
matchStringn {
bodyn
}
}
}
matchString2 {
body2
}
...
matchStringn {
bodyn
}
}示例
#!/usr/bin/tclsh
set a 100
set b 200
switch $a {
100 {
puts "This is part of outer switch"
switch $b {
200 {
puts "This is part of inner switch!"
}
}
}
}
puts "Exact value of a is : $a"
puts "Exact value of a is : $b"
当上述代码被编译和执行时，它产生了以下结果：
This is part of outer switch
This is part of inner switch!
Exact value of a is : 100
Exact value of a is : 200
