tcl - 将键值列表分配给 Tcl 中的数组

Question

我有一个列表，它是一个键值对列表。类似下面的内容

key1 value1 key2 value2 key3 value3

我想将其映射到数组或字典。

目前，我的代码是这样的

for {set i 0} {$i < [llength $list]} {incr i} {
  if {[expr {fmod($i,2)}] == 0} {
    set key [lindex $list $i]
  } else {
    set v_array(${key}) [lindex $list $i]
  }
}

在 perl 中，我知道这可以一次性分配到键值字典中。 Tcl中有这么简单的方法吗？

Answer 1

您可以在一行中创建一个数组(我使用一行来定义列表):

% set list [list key1 value1 key2 value2 key3 value3]
key1 value1 key2 value2 key3 value3
% array set v_array $list

如果你想检查内容，你可以使用 parray (Tcl 8.5 and later):

% parray v_array
v_array(key1) = value1
v_array(key2) = value2
v_array(key3) = value3

可以找到其他数组命令的文档here每个都有例子。

---

如果您无法避免循环，则使用 foreach会更容易(确保列表中的元素数量为偶数):

foreach {a b} $list {
  set v_array($a) $b
}

(这里的foreach是一次取两个$list中的元素，赋值给a和b)