package require Tcl
package require Tk
set user(name) "sobey"
set user(age) "25"
set user(occupation) "IT"
foreach var {name age occupation} {
puts "$var=$user($var)"
}
总结：放在数组里的元素不一定是数字。在TCL中的数组可以存放数字或是字符串，并且存放的位置不一定要用0,1，2...这样的编号
阅读(1846) | 评论(0) | 转发(0) |
