tcl - How to replace multiple space with a single comma in TCL

Question

Please tell me way to replace multiple spaces with comma for example input string

set string "boy      cat dog            girl     man"

there can be multiple space between the strings example 8 betwee boy and cat , 4 between dog and girl

and i want it as boy,cat,dog,girl,man

Answer 1

とても簡単ですregsub。正規表現に基づいて置換を実行する を使用するだけです。

set string "boy     cat   dog  girls man"
regsub -all {\s+} $string ,

そしてあなたは得る

boy,cat,dog,girls,man

は\s単一のスペースに一致し、は前のアトムの1 つ以上+を意味するため、組み合わせにより1 つ以上のスペースが得られます。