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

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

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

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

else 
    puts "not same"

---

tcl:：mathop:：eq

（或用于数值比较的

tcl:：mathop:：==

）命令可以完全执行以下操作：

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

---

我有tcl 8.5版。这行吗？对我来说行（刚刚在8.5.9中测试过，但它通常是8.5的特性）。你试过了吗？我刚跑了一趟。如果其中一个变量的值为空或null，该怎么办。这将认为条件是错误的。我们可以用其他方法来解决这个问题。我应该检查变量是否包含一些值，但这将是一个长度过程。这将使代码更长。我在变量上包括一个检查语句，如下所示。如果{$a ne”“&&&b ne”“&&c ne”“}{puts”，则在Tcl中输入“}无空值。空字符串并不等于其他非空字符串。