如何使用 TCL 从 proc 返回值

Question

我有一个示例过程

      proc exam {return_value} {

        set input "This is my world" 
         regexp {(This) (is) (my) (world)} $input all a b c d 
         set x "$a $b $c $d" 
    return x }

在执行上述 proc 之后，我将在单个列表中获得所有 a b c d 值，所以如果我只想要上述 proc 中的 b 值，现在正在执行 [lindex [exam] 1]。 我正在寻找其他方式以不同的方式获取输出，而不是使用 lindex 或 returun_value(b) 可以提供我预期的输出

Answer 1

您可以使用dict 并选择可以使您的意图明确的键值映射：

return [dict create width 10 height 200 depth 8]

我认为除了复合数据结构或 yield 从 coroutine 之外，Tcl 没有其他方法可以返回多个值。

Answer 2

返回多个值的常用方法是列表。这可以在调用站点与lassign 一起使用，以便将列表立即分解为多个变量。

proc exam {args} {
    set input "This is my world" 
    regexp {(This) (is) (my) (world)} $input all a b c d 
    set x "$a $b $c $d" 
    return $x
}

lassign [exam ...] p d q bach

您还可以返回字典。在这种情况下，dict with 是一种方便的解包方式：

proc exam {args} {
    set input "This is my world" 
    regexp {(This) (is) (my) (world)} $input all a b c d 
    return [dict create a $a b $b c $c d $d]
}

set result [exam ...]
dict with result {}
# Now just use $a, $b, $c and $d

最后，您还可以在 exam 中使用 upvar 将调用者的变量带入作用域，尽管通常最明智的做法是只使用调用者为您提供名称的变量。

proc exam {return_var} {
    upvar 1 $return_var var
    set input "This is my world" 
    regexp {(This) (is) (my) (world)} $input all a b c d 
    set var "$a $b $c $d" 
    return
}

exam myResults
puts "the third element is now [lindex $myResults 2]"