手続きをファイルに保存

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] 

ようにしたい場合は、あなたがappend res \nによってappend res ...とputs -nonewline ...呼び出し、およびputs ""呼び出しを交換する必要があり、そして最後に、手順が完了したら、return $resに電話してください。

ファイルへの出力テキストに手続きをしたい場合は、この

printMatrix $varName $myMatrix 

のようにそれを呼び出すとputs $chan ""でputs -nonewline $chan ...とputs ""でputs -nonewline ...を置き換えるこの

proc printMatrix {chan myMatrix} { 

ようにそれを再定義します。

ドキュメント：append、proc、puts、return