parsing - 在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

在 lappend 和 keylset 之前检索时，您想使用 keylget 的可选 retval 参数将其放回去，也许像这样:

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