如何在TCL中实现分组？示例需求与代码求助

看起来你想要把all列表里的内容，按照unique里的关键词进行分组，把每个关键词后面的相关项归到它下面对吧？我来帮你梳理下正确的实现方式，先看看你现有代码的问题，再给出可行的方案。

现有代码的问题 #

你原来的代码有几个明显的问题：

• lsearch的用法错误：lsearch $unique $f +这个写法不符合TCL语法，lsearch的正确格式是lsearch ?options? list pattern，多余的+会导致判断逻辑失效；
• 缺少当前分组跟踪：遍历all时没有记录当前正在处理的分组键，没法把后续的项归到对应的组里；
• 输出逻辑混乱：你的puts语句只是零散输出变量，没有收集每个分组对应的项，自然没法输出期望的结构化结果。

正确的实现方案 #

我们可以用数组来存储每个分组对应的项，遍历all列表时跟踪当前的分组键，把非分组键的元素添加到对应数组项中。具体代码如下：

# 初始化变量
set unique "arun samuel"
set all "arun abc1 abc2 abc3 arun abc4 abc5 abc6 arun abc7 abc8 abc9 samuel xyz1 xyz2 xyz3 samuel xyz4 xyz5 samuel xyz6"

# 把unique转成集合，方便快速判断元素是否为分组键
set unique_set [lsort -unique $unique]
array set groups {}

# 维护当前活跃的分组键
set current_group ""

foreach item $all {
    # 判断当前元素是否是分组键
    if {$item in $unique_set} {
        set current_group $item
        # 如果分组未初始化，创建空列表
        if {![info exists groups($current_group)]} {
            set groups($current_group) [list]
        }
    } else {
        # 若当前有活跃分组，将元素添加到对应分组
        if {$current_group ne ""} {
            lappend groups($current_group) $item
        }
    }
}

# 按期望格式输出分组结果
foreach group $unique_set {
    puts "$group:"
    foreach entry $groups($group) {
        puts "  $entry"
    }
    puts "" # 分组间添加空行分隔
}

代码解释 #

1. 集合转换：set unique_set [lsort -unique $unique]将unique转为集合（这里unique本身已去重，主要是方便用in操作符快速判断元素是否属于分组键）；
2. 数组存储分组：array set groups {}用来存储每个分组的项，键为分组名，值为对应项的列表；
3. 遍历处理逻辑：
   • 遇到分组键时，切换current_group，并初始化该分组的列表（若未创建）；
   • 遇到非分组键时，将其添加到当前活跃的分组列表中；
4. 结构化输出：遍历每个分组键，先输出分组名，再逐个输出对应的项，完全匹配你想要的格式。

运行结果 #

执行代码后，输出如下：

arun:
  abc1
  abc2
  abc3
  abc4
  abc5
  abc6
  abc7
  abc8
  abc9

samuel:
  xyz1
  xyz2
  xyz3
  xyz4
  xyz5
  xyz6

这样就完美实现了你需要的分组功能啦！

内容的提问来源于stack exchange，提问作者Aroon