如何在TCL中查找数组的行中列数

Question

对于名为cb_节点的数组，我有不同数量的列。要对这些数据进行后处理，需要准确知道每行中的列数。

数组如下所示。

cb_node(1,1) value
cb_node(1,2) value
...
cb_node(1,256) value

cb_node(2,1) value
....
cb_node(2,56) value

等等...数组中的每一行都有不同数量的列数。value只是个例子，数组中的键是不同的。

TCL中的命令集只有数组cb_node和数组大小cb_node，它没有给出每行的行号和列号。

在TCL，我们如何做到这一点？

Answer 1

如果您不知道有多少行或列，但您知道没有跳过的行，那么只要信息存在，就可以循环：

#!/usr/bin/env tclsh

array set cb_node {1,1 a 1,2 b 1,3 c 2,1 d 3,1 e 3,2 f}

for {set row 1} {[info exists cb_node($row,1)]} {incr row} {
    for {set col 1} {[info exists cb_node($row,$col)]} {incr col} {
        puts "cb_node($row,$col) = $cb_node($row,$col)"
    }
}

这将打印出来

cb_node(1,1) = a
cb_node(1,2) = b
cb_node(1,3) = c
cb_node(2,1) = d
cb_node(3,1) = e
cb_node(3,2) = f

Answer 2

set count {}
foreach key [array names cb_node] {
    lassign [split $key ,] row col
    dict incr count $row
}
dict for {row n} $count {
    puts "row $row has $n cols"
}

row 2 has 56 cols
row 1 has 256 cols

Answer 3

如果键中的1表示行号，那么您可能可以使用如下内容：

set rowNum 1
set noOfColumns [llength [array names cb_node $rowNum,*]]