有没有办法在 TCL 8.4 中使字典全局化

Question

我在一个过程中的 tcl 8.4 中构建了一个字典。如何在另一个过程中使用构建的字典。我添加了如何在 tcl 8.4 中构建字典的示例代码。我知道 tcl 8.5 有内置的 'dict' 选项，但我必须使用 tcl 8.4。

proc a {} {
    set test(key1) "value1"
    set test(key2) "value2"
    lappend keylist "key1"
    lappend keylist "key2"
    foreach key $keylist {
            puts "value of $key is $test($key)"
    }
}

所以上面提到的过程建立了一个字典。但是由于 tcl 8.4 解释器将每一行 "$test($key)" 解释为一个单独的变量，我怎样才能使它成为全局变量，以便我可以在另一个过程中使用它。

Answer 1

您可以使用global 命令将变量或数组设为全局变量。

例如：

proc a {} {
    global test
    set test(key1) "value1"
    set test(key2) "value2"
    lappend keylist "key1"
    lappend keylist "key2"
    foreach key $keylist {
        puts "value of $key is $test($key)"
    }
}

a

# Outputs
# value of key1 is value1
# value of key2 is value2

# Now use them in another proc...
prob b {} {
    global test
    puts $test(key1)
    puts $test(key2)
}

b

# Outputs
# value1
# value2

Answer 2

如果您能够返回字典，您可以将它作为参数传递给另一个 proc。 （本来希望将其放在评论部分，但我没有所需的代表）