在TCL中获取变量控制台的日志

Question

是否可以在变量中获取由一个函数生成的日志而不从TCL中的该函数返回该值，就像在BASH中"$"那样。

function f1 {
    echo "ABC"
    return 0
}

调用程序是，

var=$(f1) ;# gives output ABC

我对如何解决这个问题的了解是，

proc f1 {} {
    return "ABC | 0"
}

在打电话时我需要提取两个值，如

set console_msg [lindex [split [f1] "|"] 0]
set retval [lindex [split [f1] "|"] 1]

在TCL中有没有正确的方法？

谢谢，

Answer 1

事后看来，这似乎很明显：

set value [f1]

并分配给变量：

lassign [split $value |] msg val