Tcl 字典

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