返回数组列表

Question

TCL TK 中列表和数组的区别在哪里？ 我创建了一个包含 3 个数组的列表。

就像循环中的这个一样

set x($idx) 1
incr idx

，稍后我想返回“ret”对象

list set ret { $x $x2 $x3 }

并再次解析它们，

lassign $data x x2 x3

但这不起作用...:( 有人可以再次帮助我吗.. 该死的 tcl tk... :D:D

如果我不对，请纠正我，不可能构建 2dim 列表或数组？

Answer 1

您的数组称为 x - 您可以通过 set x(1) 、 set x(2) 等引用其元素。 $x2 和$x3 在这种情况下没有任何意义。

如果你想要一个二维数组，你可以在TCL中模拟它，如下所示：

set a(1,1) 0 ;# set element 1,1 to 0
set a(1,2) 5 ;# set element 1,2 to 5

如果你只使用列表的列表可能会更容易

set l1 [list a b c]
set l2 [list d e f]
set lol [list $l1 $l2]

Answer 2

您可以使用array get/set 将数组作为过程参数/返回值传递。例如：

proc someProc {arr} {
  array set x $arr
  set x(5) 0
  return [array get x]
}

使用示例：

% set a(0) -1
% set a(1) 1

% parray a
a(0) = -1
a(1) = 1

% array set b [someProc [array get a]]

% parray b
b(0) = -1
b(1) = 1
b(5) = 0