Tcl array get 不适用于 :: in proc

Question

请参阅下面的 Tcl 代码：

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

我希望输出是
env get is:{DODA bar}
相反，它returns只是数组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 array get 不适用于 :: in proc

Tcl array get does not work with :: in proc

arrays

tcl

global

environment