在 TCL 中对列表字典进行索引和迭代

Question

我在TCL有以下情况：

dictionary_name {
  name_list {apple banana carrot peach} 
  type_list {fruit fruit vegetable fruit} 
  amount_list {1 3 4 2} 
}

例如，我想在循环中一一处理它们 循环 1 将是：

name apple 
type fruit 
amount 1

和循环2：

name banana 
type fruit 
amount 3 

等等。我该怎么做？

我创建了“foreach {list_name list_value} $dictionary_name”循环来分隔名称和值，但我不确定如何从这里继续

Answer 1

foreach n {0 1 2 3} {
    puts ""
    foreach x {name type amount} {
        set key ${x}_list
        set value_for_n [lindex [dict get $dictionary_name $key] $n]
        puts "$x $value_for_n"
    }
}