每个循环的变量替换 - 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]