只是一个简单但经常需要的操作 - 如何将字符串添加到变量:
set s "world!!!"
prepend s "Hello " #how to accomplish this effectively?
puts $s
#should print "Hello world!!!"
答案 0 :(得分:5)
您可以编写程序prepend
:
proc prepend {s_var txt} {
upvar 1 $s_var s
set s "${txt}${s}"
}
这正是你想要的。但我认为通常写起来更简单:
set s "Hello ${s}"
答案 1 :(得分:2)
我使用TCL已经有一段时间了,但你试过这个:
set s "world!"
set s "hello $s"
puts $s