variables - TCL regsub 到变量？

Question

我正在设置宏、Set 和 Say。在程序中定义。

proc Set {key value args} {
    set ::$key $value
            set "::key2" "$key"
}

proc Say {key} {
puts $key
}

proc Say2 {key} {
set key3 [regsub "\%" $key "\$"]
puts $key3
eval puts $key3
}

这允许我执行以下操作:

Set "test" "this should display this test text"
Say $key2 ;#should display the key "test" which is what we just set
Say $test ;#presents the value of the key test

输出

% Set "test" "this should display this test text"
test
% Say $key2 ;#should display the key "test" which is what we just set
test
% Say $test ;#presents the value of the key test
this should display this test text

现在假设我想将变量 $ 重新分配给 %

Set "mouse" "squeak" ;#set key mouse with value string of "squeak"
Say $mouse ;#displays the value as set above correctly
Say2 %mouse ;#start using our own characters to represent variables - switch the % for a $ and then output

但是当我使用 eval 时，

 can't read "mouse": no such variable

输出

% Set "mouse" "squeak" ;#set key mouse with value string of "squeak"
mouse
% Say $mouse ;#displays the value as set above correctly
squeak
% Say2 %mouse ;#start using our own characters to represent variables
$mouse
can't read "mouse": no such variable

我觉得这很奇怪，因为我们在上面设置了它，我们可以使用标准 $ 调用该值，并且我可以证明 Say2 中的 regsub 正在工作，因为它应该用 $ 替换 %。

%mouse 变为 $mouse，这是一个有效的变量。 评估没有此类变量的 $mouse 输出

我错过了什么吗？

谢谢

Answer 1

问题出在 proc 上:

proc Say2 {key} {
    set key3 [regsub {%} $key {$}]
    puts $key3
    eval puts $key3 ;# here
}

$mouse 不存在在此proc 中。它不是作为参数传递，也不是使用 set 创建的。然而它存在于全局命名空间中。在这种情况下，实现它的一种方法是使用 uplevel:

proc Say2 {key} {
    set key3 [regsub {%} $key {$}]
    puts $key3
    uplevel puts $key3
}

我经常使用的另一个选项是 upvar 将变量带入内部(尽管在本例中，我们不再需要 $):

proc Say2 {key} {
    set key3 [regsub {%} $key {}]
    puts $key3
    upvar $key3 var
    puts $var
}

_{PS:我还继续删除了一些反斜杠，因为在这种情况下并不真正需要它们。}