====== TCL split 多个字符为分隔符 ======

TCL里默认的split函数是以单个字符为分隔符对字符串进行分割，下面的程序实现了用多个字符的字符串对目标字符串进行split:

<code tcl>
proc wsplit {str sep} {
  split [string map [list $sep \0] $str] \0
} 
</code>


===== TCL以多个空格符分割 =====
<code>
split [regsub -all {\s+} "a    b" " "]
</code>