Tcl 字典

dict set dictname key value
# or 
dict create dictname key1 value1 key2 value2 .. keyn valuen

#!/usr/bin/tclsh

dict set colours  colour1 red 
puts colours
dict set colours  colour2 green
putscolours

set colours [dict create colour1 "black" colour2 "white"]
puts $colours

colour1 red
colour1 red colour2 green
colour1 black colour2 white

[dict size dictname]

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
puts [dict size $colours]

2

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
foreach item [dict keys colours] {
   set value [dict getcolours item]
   putsvalue
}

black
white

[dict get dictnamekeyname]

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
set value [dict get colours colour1]
putsvalue

black

[dict keys $dictname]

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
set keys [dict keys colours]
putskeys

colour1 colour2

[dict values $dictname]

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
set values [dict values colours]
putsvalues

black white

[dict exists dictnamekey]

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
set result [dict exists colours colour1]
putsresult

1