如何在Tcl中粘贴文字

Question

是否有任何语法技巧/功能可以使我在TCL中粘贴两个literal单词，例如将大括号（{..}）词和双引号"..."）词合并为一个词？

我不是在问set a {foo}; set b "bar\nquux"; set c $a$b或append a $b，我知道他们；但是关于没有中间变量或命令的东西。类似于{*}word（将一个单词变成一个列表）。

我想答案是“没有办法”，但是我对Tcl的浅薄知识使我无法得出这样的结论。

Answer 1

如果您的单词是有效列表，则可以执行：

set orig {abc def}
set new [join $orig {}]

Answer 2

如果使用的是最新的Tcl版本（8.6.2或更高版本），则可以使用

set c [string cat {foo} "bar\nquux"]

对于较旧的版本，您可以诉诸

set c [format %s%s {foo} "bar\nquux"]