Как дать динамическое переменное пространство между словами в Tcl?

Question

Я новичок в tcl, мне нравится ваша помощь, чтобы дать динамический интервал между словами в Tcl.Пример: "Stack over flow" "Stack" как 5 букв в нем.Поэтому я должен дать пробел 5, чтобы начать следующее слово, то же самое перейдет к следующему слову.

Output: Stack     over    flow

Answer 1

Полагаю, вы могли бы сделать что-то вроде этого:

set example "Stack over flow"
set result ""

foreach word $example {
    append result $word [string repeat " " [string length $word]]
}

set result [string trim $result]
puts $result

Даст:

Stack     over    flow