2

我正在设置宏、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 是一个有效的变量。没有此类变量的 Eval $mouse 输出

我错过了什么吗？

谢谢

4

1 回答 1

2

问题在于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：我还继续删除了一些反斜杠，因为在那种情况下它们并不是真正需要的。

于 2018-10-04T16:46:15.430 回答