Tcl - 關係運算符

下表顯示了 Tcl 語言支援的所有關係運算符。假設變數A的值為 10，變數B的值為 20，則：

運算子	描述	示例
==	檢查兩個運算元的值是否相等，如果相等則條件為真。	(A == B) 為假。
!=	檢查兩個運算元的值是否相等，如果不相等則條件為真。	(A != B) 為真。
>	檢查左運算元的值是否大於右運算元的值，如果是則條件為真。	(A > B) 為假。
<	檢查左運算元的值是否小於右運算元的值，如果是則條件為真。	(A < B) 為真。
>=	檢查左運算元的值是否大於或等於右運算元的值，如果是則條件為真。	(A >= B) 為假。
<=	檢查左運算元的值是否小於或等於右運算元的值，如果是則條件為真。	(A <= B) 為真。

示例

嘗試以下示例以瞭解 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.htm

列印頁面