3

似乎是一个基本问题，但我无法在任何地方找到答案：-S

我对下面的实验感到困惑：

Tcl 8.5.13 interactive shell
% set args [list 1 2 3]
1 2 3
% llength $args
3
% set argv $args
1 2 3
% llength $argv
3
% set argv ${args}
1 2 3
% llength $argv
3

到目前为止一切顺利，但随后：

% proc test { args } { set argv ${args}; set argc [llength $argv]; return $argc}
% test $args
1

看起来列表在参数传递期间变成了一个字符串。有人可以解释这里发生了什么吗？

到目前为止，我发现的唯一解决方法是：

% proc test2 { argsName } { upvar 1 $argsName args; set argv ${args}; set argc [llength $argv]; return $argc}
% test2 args
3

还有什么建议吗？

4

1 回答 1

3

您的问题是args具有特殊含义的参数名称。

从proc 的手册中：

如果最后一个形式参数的名称为args，则对过程的调用可能包含比过程具有形式参数更多的实际参数。在这种情况下，从将分配给args的参数开始的所有实际参数都组合成一个列表（就像使用了list命令一样）；这个组合值被分配给局部变量args。

因此，如果您为参数使用任何其他名称，它将正常工作。

示例用途args：

proc putargs args {
    puts $args
}

# Call with more than one argument
putargs foo bar
# Use as command prefix for callbacks.
trace add execution glob {enter leave} {list putargs GLOB}
于 2013-04-30T22:56:10.177 回答