问个TCL语言的有关问题,怎么删除TCL数组中的元素

问个TCL语言的问题,如何删除TCL数组中的元素
RT

------解决方案--------------------------------------------------------
array unset arrayName ?pattern?
删除数组中所有匹配pattern的元素（与string match匹配风格相同），如果arrayName不是一个数组变量或者没有匹配到任何元素，不会产生错误，如果忽略了pattern变元并且arrayName是一个数组名称，这个命令将删除整个数组所有的元素，这个命令总是返回一个空字符串。
------解决方案--------------------------------------------------------
unset就可以啦

e.g.

set arr(0) 0
set arr(1) 1

# output 2
puts [array size arr]

unset arr(1)
# output 1
puts [array size arr]