如何在TCL中执行+=

Question

set windowSize 0

for {set i 0} {$i < 14} {incr i} {
  set $windowSize [expr $windowSize + [$tcp($i) set cwnd_]]
}
puts "$windowSize"

当添加的值非零时，这会打印出零。在没有临时变量的情况下如何做到这一点？如果你喜欢 TCL，你好。 ……死一般的寂静。

Answer 1

set $windowSize 在运行命令之前替换 $windowSize 的值。

您想要设置 windowSize [expr ...]，或者更简单：

incr windowSize [$tcp($i) set cwnd_]