Tcl - Operadores relacionais

A tabela a seguir mostra todos os operadores relacionais suportados pela linguagem Tcl. Assumir variávelA contém 10 e variável B contém 20, então -

Operador	Descrição	Exemplo
==	Verifica se os valores dos dois operandos são iguais ou não, se sim a condição torna-se verdadeira.	(A == B) não é verdade.
! =	Verifica se os valores de dois operandos são iguais ou não; se os valores não são iguais, a condição se torna verdadeira.	(A! = B) é verdade.
>	Verifica se o valor do operando esquerdo é maior que o valor do operando direito, se sim, a condição torna-se verdadeira.	(A> B) não é verdade.
<	Verifica se o valor do operando esquerdo é menor que o valor do operando direito; se sim, a condição torna-se verdadeira.	(A <B) é verdade.
> =	Verifica se o valor do operando esquerdo é maior ou igual ao valor do operando direito, se sim a condição torna-se verdadeira.	(A> = B) não é verdade.
<=	Verifica se o valor do operando esquerdo é menor ou igual ao valor do operando direito, se sim a condição torna-se verdadeira.	(A <= B) é verdadeiro.

Exemplo

Tente o exemplo a seguir para entender todos os operadores relacionais disponíveis na linguagem 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"
}

Quando você compila e executa o programa acima, ele produz o seguinte resultado -

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