tcl/tk参考——控制结构if

.

.

 

名称

if - 执行一个条件脚本

语法

if expr1 ?then? body1 elseif expr2 ?then? body2 elseif ... ?else? ?bodyN?

描述

if命令把expr1当作表达式来执行，表达式的值必须是一个布尔数（数值0代表假其它的数值代表真，字符变量true和yes代表真，false和no代表假），如果是真那么执行body1，否则expr2作为一个表达式来执行，返回真则执行body2，往下的执行以此类推。如果没有表达式的执行结果是真那么就执行bodyN。then和else变元是可选的，可以有任意数量的elseif，bodyN和else也可以省略。命令的返回值是被执行脚本的结果，如果没有被执行的脚本并且没有bodyN就返回一个空字符串。

示例

一个简单的例子：

if {$vbl == 1} { puts "vbl is one" }

带有一个else子句：

if {$vbl == 1} {

   puts "vbl is one"

} else {

   puts "vbl is not one"

}

带有一个elseif子句：

if {$vbl == 1} {

   puts "vbl is one"

} elseif {$vbl == 2} {

   puts "vbl is two"

} else {

   puts "vbl is not one or two"

}

表达式可以是多行的，但是在这种情况下就需要使用then关键字是结构清晰。

if {

   $vbl == 1 || $vbl == 2 || $vbl == 3

} then {

   puts "vbl is one, two or three"

}