如何使用TCL对列表按每3个元素分组并添加逗号分隔？

要实现将输入列表按每3个元素分组、组间用逗号分隔的需求，可通过以下几种TCL脚本实现：

方法一：通用分组拼接法（支持任意元素类型） #

该方法通过遍历列表按步长3截取子列表，再将各组用逗号拼接，适配所有元素类型：

# 定义输入列表
set input {2 1 0 2 2 0 2 3 0 2 4 0}
set group_list [list]

# 按每3个元素为一组遍历列表
for {set idx 0} {$idx < [llength $input]} {incr idx 3} {
    # 截取当前组的3个元素，转为空格分隔的字符串后加入组列表
    lappend group_list [join [lrange $input $idx [expr {$idx + 2}]] " "]
}

# 用逗号拼接所有组，再包裹大括号得到最终结果
set final_result "\{[join $group_list ","]\}"
puts $final_result

方法二：正则替换法（适用于元素为数字的场景） #

如果列表元素均为数字，可利用正则表达式快速处理：

set input {2 1 0 2 2 0 2 3 0 2 4 0}
# 先将列表转为空格分隔的字符串
set input_str [join $input " "]

# 匹配每3个带空格分隔的数字，在后面加逗号
regsub -all {(\d+ \d+ \d+)} $input_str {\1,} modified_str
# 移除末尾多余的逗号，再包裹大括号
set final_result "\{[string trimright $modified_str ","]\}"
puts $final_result

两种方法运行后都会输出目标结果：{2 1 0,2 2 0,2 3 0,2 4 0}

内容的提问来源于stack exchange，提问作者Seçkin Uslu