字典(Dictionary) 是一种键值对(Key/Value)存储结构。语法如下所示-

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

创建字典的一些示例如下所示-

链接:https://www.learnfk.com/article-tcl-tk/tcl_dictionary

来源:LearnFk无涯教程网

#!/usr/bin/tclsh

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

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 get $colours $item]
   puts $value
}

执行以上代码后,将产生以下输出-

无涯教程网

black
white

根据键获取值

检索dict中的key值的语法如下所示-

[dict get $dictname $keyname]

下面给出了检索键值的示例-

#!/usr/bin/tclsh

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

执行以上代码后,将产生以下输出-

无涯教程网

black

获取所有键

检索dict中所有键的语法如下所示-

[dict keys $dictname]

打印所有键的示例如下所示-

#!/usr/bin/tclsh

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

执行以上代码后,将产生以下输出-

无涯教程网

colour1 colour2

获取所有值

检索dict中所有值的语法如下所示-

[dict values $dictname]

打印所有值的示例如下所示-

#!/usr/bin/tclsh

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

执行以上代码后,将产生以下输出-

无涯教程网

black white

判断键是否存在

检查字典中是否存在键的语法如下所示-

[dict exists $dictname $key]

下面显示了一个检查dict中是否存在键的示例-

#!/usr/bin/tclsh

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

执行以上代码后,将产生以下输出-

无涯教程网

1

这一章你学到了什么?来做个笔记,好记忆不如烂笔头! 如果觉得对您有帮助,麻烦帮分享给您的朋友。

祝学习愉快! (如果觉得不正确,选中要修改的内容->右键->编辑)

点我分享笔记