tcl中如何将变量参数从一个函数传递到另一个函数

Question

我想将一个函数中获得的变量参数传递给另一个函数，但我无法这样做。函数获取偶数个变量参数，然后必须将其转换为数组。下面是示例。

过程 abc1 获取两个参数 (k k)，而不是形成 abc1 过程，这些参数必须传递给 proc abc，其中列表到数组的转换就完成了。列表到数组的转换在 proc1 即 abc1 中有效，但在第二个 proc 即 abc 中无效，

下面给出了错误

proc abc {args} {
    puts "$args"
    array set arg $args
}

proc abc1 {args} {
    puts "$args"
    array set arg $args
    set l2 [array get arg]
    abc $l2
}

abc1 k k
abc k k

输出：

k k
{k k}
list must have an even number of elements
    while executing
"array set arg $l1"
    (procedure "abc" line 8)
    invoked from within
"abc $l2"
    (procedure "abc1" line 5)
    invoked from within
"abc1 k k"
    (file "vfunction.tcl" line 18)

Answer 1

最佳解决方案：扩展替换

正确的方法是确保外部过程（以堆栈术语来说）正确调用内部过程；如果需要多个参数，则应该提供这些参数。随着 Tcl 8.5 的出现，这可以通过称为扩展替换的小语言语法轻松完成：

proc abc1 {args} {
    puts "$args"
    array set arg $args
    set l2 [array get arg]
    abc {*}$l2
    # Or combine the two lines above into: abc {*}[array get arg]
}

所有 {*} 确实是说单词的其余部分应该被分解（使用列出语法规则）并用作多个参数，而不是 Tcl 默认的“一个视觉单词形成一个单词”规则。这是理想。

旧的解决方案：Eval 命令

如果由于某种原因您仍在使用旧版本的 Tcl（即 Tcl 8.4 或之前），那么您可以使用 eval 命令而不是上面的语法：

eval abc $l2

有一些有点 -对上述eval更有效的方法，您可能会在旧代码中看到；例如：

eval [linsert $l2 0 abc]
eval [list abc] [lrange $l2 0 end]
# ... etc ...

但实际上它们都被 abc {*}$l2 废弃了，它更短、编写更简单、速度更快。 （它只是在 8.4 或更早版本中不可用，并且太多部署尚未升级。）如果可以，请使用扩展语法。 事实上，8.5 及更高版本的惯用 Tcl 代码几乎不需要 评估；事实证明这一点的正确程度甚至令该语言的维护者感到相当惊讶。

Answer 2

之间有很大的区别

abc k k

和

abc [array get arg]

。在第一种情况下，您传递两个参数，每个参数都是 k。在第二种情况下，您将传递一个列表 - 在您的示例中，是两个 k 的列表：k k。

Nir 的答案 故意绕过这个问题，但更好的解决方案是编写 abc1 以便它正确调用 abc：

proc abc1 {args} {
  array set arg $args
  set l2 [array get arg]
  eval abc $l2
  # or just
  # eval abc $args
}

Answer 3

当您传递 abc $l2 时，您将 abc1 的 args 作为单个参数传递给 abc。因此，在 abc 中，args 包含一个包含单个项目 ({kk}) 的列表。

你可以这样做：

proc abc {args} {    
  #the next line assumes that if $args has only a single item, then it is 
  #a list in itself. It's a risky decision to make but should work here.
  if { [llength $args] == 1 } { set args [lindex $args 0] }
  puts "$args"
  array set arg $args
}