TCL字符串前置

Question

只是一个简单但经常需要的操作 - 如何将字符串添加到变量：

set s "world!!!"
prepend s "Hello " #how to accomplish this effectively?
puts $s
#should print "Hello world!!!"

Answer 1

您可以编写程序prepend：

proc prepend {s_var txt} {
  upvar 1 $s_var s
  set s "${txt}${s}"
}

这正是你想要的。但我认为通常写起来更简单：

set s "Hello ${s}"

Answer 2

我使用TCL已经有一段时间了，但你试过这个：

set s "world!"
set s "hello $s"
puts $s