TCL - 将任意数量的空格分隔为一个列表

Question

说我有这样的字符串:

set str "AAA    B C     DFG 142               56"

现在我想得到如下列表:

{AAA B C DFG 142 56}

为此,我想使用split函数,但在这种情况下,我得到一些额外的空列表{}.我怎么能得到上面的清单？

Answer 1

set text "Some arbitrary text which might include \$ or {"
set wordList [regexp -inline -all -- {\S+} $text]

请参阅:将字符串拆分为单词.

Answer 2

您始终可以执行以下操作:

set str "AAA    B C     DFG 142               56"
set newStr [join $str " "]

它将输出以下内容:

{AAA B C DFG 142 56}

Answer 3

来自tcllib的textutil::split模块有一个完全符合你要求的过程splitx

package require textutil::split
set result [textutil::split::splitx $str]