每個循環的變量替換 - tcl tk 編程

Question

我試圖找出失敗的元素數量，並將結果打印在 .csv 文件中。 這是我的代碼，

set n_min_len 10
set n_max_len 50
set n_angle 60
foreach check {"min length" "max length" "angle"} \
        fail {$n_min_len $n_max_len $n_angle} {
   puts $file [format %30s%10s "$check...." "$fail"]
   }

我得到輸出為最小長度....$n_min_len最大長度....$n_max_len等等。 相反，我希望輸出為最小長度....10最大長度....50

有人可以幫助我，如何得到這個。

謝謝你！！

Answer 1

問題出在這部分：

{$n_min_len $n_max_len $n_angle}

大括號阻止任何替換。 相反，你應該寫

"$n_min_len $n_max_len $n_angle"

或者

[list $n_min_len $n_max_len $n_angle]