TCL String prepend

Question

Nur einen einfachen, aber sehr oft Betrieb benötigt - wie eine Zeichenfolge an eine Variable vorangestellt wird:

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

Answer 1

Sie eine Prozedur schreiben konnte prepend:

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

Das tut genau das, was Sie wollen. Aber ich denke, in der Regel ist es einfacher zu schreiben:

set s "Hello ${s}" 

Answer 2

Es ist eine Weile her, seit ich TCL verwendet haben, aber haben Sie versucht, dies:

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