TCL/TK 比较两个字符串是否相等

在 TCL/TK 中，可以使用 `string equal` 命令来比较两个字符串是否相等。该命令的语法如下：

string equal string1 string2

其中 `string1` 和 `string2` 是要比较的两个字符串。

如果两个字符串相等，该命令会返回 1；如果不相等，该命令会返回 0。例如，比较两个字符串是否相等的 TCL/TK 代码如下：

set str1 "hello"
set str2 "world"
if { [string equal $str1 $str2] } {
    puts "str1 and str2 are equal"
} else {
    puts "str1 and str2 are not equal"
}

在上面的例子中，由于 `str1` 和 `str2` 不相等，因此输出结果为 "str1 and str2 are not equal"。