在TCL中使用keylset在解析时连续返回多个值

Question

我有一个输出

Application
----------------------------------------
ID 5 - Value 1
ID 5 - Value 2
ID 6 -  Value 1
ID 6 - Value 2
----------------------------------------

我在tcl中使用keylset解析它 现在，解析后我得到的是：

ID
    5
        Value
             1 = 1
             2 = 2
    6
        Value
             1 = 1
             2 = 2

任何人都可以建议我如何以下列方式获得它。

  ID
    5
        Value 1,2
    6 
        Value 1,2

Answer 1

您希望在keylget和lappend之前检索时使用keylset的可选retval参数将其放回，可能是这样的：

set seq {}
keylget data ID.$id.Value seq
lappend seq $theValue
keylset data ID.$id.Value $seq