将程序保存到文件

Question

我开始学习 TCL 语言，所以问题可能有点简单。我正在寻找从向量构造一个矩阵。我在调查之前提出的问题时发现了以下想法：

 set phi_x [lrepeat 36 [lrepeat 12 0.]]

创建我的向量列表。然后我用命令 lset 填充列表的向量。然后我使用以下内容，这是我在另一个问题线程中找到的：

proc printMatrix {myMatrix} {

set height [llength [lindex $myMatrix]]
set width [llength [lindex $myMatrix 0]]
for {set j 0} {$j < $width} {incr j} {
    puts -nonewline \Phi$j
}
puts ""
for {set i 0} {$i < $height} {incr i} {
    puts -nonewline $i
    for {set j 0} {$j < $width} {incr j} {
        puts -nonewline \t[lindex $myMatrix $i $j]
    }
    puts ""
}

此代码运行良好。问题是我似乎无法使用

将过程的结果保存到文件中

set varName [open file.out a]
puts $varName [printMatrix $myMatrix]
close $varName

感谢您的帮助！

Answer 1

如果你想从过程中返回一个值并打印出来，像这样

puts $varName [printMatrix $myMatrix]

然后您需要将puts -nonewline ... 调用替换为append res ...，将puts "" 调用替换为append res \n，最后，当程序完成后，调用return $res。

如果您希望该过程将文本输出到文件，请像这样调用它

printMatrix $varName $myMatrix

然后像这样重新定义它

proc printMatrix {chan myMatrix} {

将puts -nonewline ... 替换为puts -nonewline $chan ...，将puts "" 替换为puts $chan ""。

文档：append、proc、puts、return