Tcl如何拆分带逗号、分号的列表元素并合并为单层列表

核心逻辑是优先提取有效字段，无需逐个适配分隔符，避免多符号拆分的兼容性问题。

Shell 场景（适配split命令所属的shell环境） #

执行以下命令即可直接得到目标结果：

echo '{{aa, bb, cc, dd, ee;} {ff, gg, hh, ii, jj;}}' | sed 's/[{},;]/ /g' | awk '{$1=$1;print "{"$0"}"}'

• 先用sed将所有冗余符号{、}、,、;统一替换为空格
• 再用awk自动合并连续空格，外层拼接大括号输出

Python 场景 #

用正则匹配提取所有有效字段后重组格式：

import re

before_str = "{{aa, bb, cc, dd, ee;} {ff, gg, hh, ii, jj;}}"
valid_items = re.findall(r'[a-zA-Z]+', before_str)
after_list = "{" + " ".join(valid_items) + "}"
print(after_list)

内容的提问来源于stack exchange，提问作者levi.kim