Tcl - 关系运算符
下表列出了Tcl语言支持的所有关系运算符。 假设变量 A 为 10，变量 B 为 20，则 −
| 运算符 | 描述 | 示例 |
|---|---|---|
| == | 检查两个操作数的值是否相等，如果相等则条件为 true。 | (A == B) 不正确。 |
| != | 检查两个操作数的值是否相等，如果值不相等则条件为 true。 | (A != B) 为 true。 |
| > | 检查左操作数的值是否大于右操作数的值，如果是，则条件为 true。 | (A > B) 不为 true。 |
| < | 检查左操作数的值是否小于右操作数的值，如果是，则条件为 true。 | (A < B) 为 true。 |
| >= | 检查左操作数的值是否大于或等于右操作数的值，如果是，则条件为 true。 | (A >= B) 不为 true。 |
| <= | 检查左操作数的值是否小于或等于右操作数的值，如果是，则条件为 true。 | (A <= B) 为 true。 |
示例
尝试以下示例来了解 Tcl 语言中可用的所有关系运算符 −
#!/usr/bin/tclsh
set a 21
set b 10
if { $a == $b } {
puts "Line 1 - a is equal to b\n"
} else {
puts "Line 1 - a is not equal to b\n"
}
if { $a < $b } {
puts "Line 2 - a is less than b\n"
} else {
puts "Line 2 - a is not less than b\n"
}
if { $a > $b } {
puts "Line 3 - a is greater than b\n"
} else {
puts "Line 3 - a is not greater than b\n"
}
# Lets change value of a and b
set a 5
set b 20
if { $a <= $b } {
puts "Line 4 - a is either less than or equal to b\n"
}
if { $b >= $a } {
puts "Line 5 - b is either greater than or equal to a\n"
}
当你编译并执行上面的程序时，它会产生以下结果 −
Line 1 - a is not equal to b Line 2 - a is not less than b Line 3 - a is greater than b Line 4 - a is either less than or equal to b Line 5 - b is either greater than or equal to a
tcl_operators.html
