TCL數組array

下面是Tcl 數組（array）的應用技巧。

（1）數組與列表的轉換

（2）在函數中不能返回整個數組

proc func{} \
{
    set a(1) 10
    set a(2) 20
    return $a
}
set temp [func]

上面的代碼報錯如下：

（3）可以在函數中將數組轉換爲列表，返回該列表；在調用函數的地方將列表轉換爲數組：

proc func{} \
{
    set a(1) 10
    set a(2) 20
    lappend a(1) 11
    return [array get a]
}
setlist_a [func]
array setb $list_a
set names[array names b]
foreachvar $names {
    tk_messageBox -message "index:$varvalue:$b($var)\n"
}

上面的代碼結果：

 

（4）給數組重複調用array set會修改數組元素的值（添加或覆蓋）：

命名空間變量也是如此。

（5）定義一個空數組

array set arr {}

（6）刪除數組的某個元素