string - 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