如何检查 3 个或更多变量是否包含 tcl 中的相同值

Question

我想知道一种检查 tcl 中三个或更多变量的变量值是否相同的好方法。

Suppose $a=abc
    $b=abc
    $c=abc

if ($a,$b,$c value is same)
    puts"write something"

else 
    puts "not same"

Answer 1

tcl::mathop::eq（或 tcl::mathop::== 用于数字比较）命令可以做到这一点：

if {[tcl::mathop::eq $a $b $c]} {
    puts "all equal"
} else {
    puts "at least one is different"
}