https://www.opennet.me/openforum/vsluhforumID9/9309.html имеем примерно такой цикл<br><br>for {set i 0} {$i&lt;=[llength $data]} {incr i} {<br>..............................<br>set pins_list$i [list]<br>set pins [lindex $data [expr $i+2]]<br>lappend pins_list$i $pins<br>puts $pins_list$i<br>}<br>}<br><br>Дело в последней строке. Т.е. идея в том, чтобы получать значение переменной на каждой итерации и чтобы оно хранилось отдельно. Но так как написано, с двумя знаками $ TCL не принимает<br> https://www.opennet.me/openforum/vsluhforumID9/9309.html#1 Mon, 05 Dec 2011 05:18:27 GMT &gt;[оверквотинг удален]<br>&gt; ..............................<br>&gt; set pins_list$i [list] <br>&gt; set pins [lindex $data [expr $i+2]] <br>&gt; lappend pins_list$i $pins <br>&gt; puts $pins_list$i <br>&gt; } <br>&gt; } <br>&gt; Дело в последней строке. Т.е. идея в том, чтобы получать значение переменной <br>&gt; на каждой итерации и чтобы оно хранилось отдельно. Но так как <br>&gt; написано, с двумя знаками $ TCL не принимает <br><br>puts ${pins_list}$i<br>не пробовали?<br>