在 TCL 中连接两个字符串形成文件名

Zuc*_*erg 1 join list tcl

我无法让它发挥作用。

set dut xyz
set fname [join {$dut "-CE"} ""]
Run Code Online (Sandbox Code Playgroud)

但这有效:

set fname [join {xyz "-CE"} ""]
Run Code Online (Sandbox Code Playgroud)

我想要 fname 作为“xyz-CE”

and*_*ngo 5

尝试以下操作

set dut xyz
set fname ${dut}-CE
Run Code Online (Sandbox Code Playgroud)

正常的单词连接不需要join.