Question

请参阅下面的Tcl代码：

proc foo {} {
    puts "env get is:[array get ::env "DODA" ]"
}
set env("DODA") bar
foo
exit

我希望输出为env get is:{DODA bar}而是，它只返回数组get的空列表，即：
env get is:
有什么想法我做错了什么？这是Tcl 8.5

Answer 1

在Tcl中，数组是关联数组。有了它，当涉及到数组的索引时，双引号和大括号表现为独立的实体。

% set user(name) dinesh
dinesh
% set user("name") DINESH
DINESH
% set user({name}) Dinesh
Dinesh
% parray user
user("name") = DINESH
user(name)   = dinesh
user({name}) = Dinesh
% array size user
3

如您所见，条目name，"name"，{name}不同。

现在，在您的情况下，您已使用双引号创建索引"DODA"。

% set env("DODA") bar
bar
% puts "env get is:[array get ::env \"DODA\" ]"
env get is:{"DODA"} bar
%

或者其他，

% set env(DODA) bar
bar
% puts "env get is:[array get ::env DODA ]"
env get is:DODA bar
%

Tcl数组get不能与:: in proc一起使用

1 个答案: