在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] 

有沒有prope在TCL中做到這一點？

感謝，

Answer 1

這似乎是顯而易見的，以你在事後：

set value [f1] 

，並分配給變量：

lassign [split $value |] msg val