Учебники

Tcl — словарь

Словарь — это схема сопоставления значений с ключами. Синтаксис для обычного словаря показан ниже —

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

Некоторые примеры для создания словаря показаны ниже —

Live Demo

#!/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 показан ниже —

[dict size dictname]

Пример для печати размера показан ниже —

Live Demo

#!/usr/bin/tclsh

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

Когда приведенный выше код выполняется, он дает следующий результат —

2

Словарь итерации

Простая итерация словаря для печати ключей и значения словаря показана ниже —

Live Demo

#!/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

Синтаксис для получения значения для ключа в dict показан ниже —

[dict get $dictname $keyname]

Пример для получения значения для ключа приведен ниже —

Live Demo

#!/usr/bin/tclsh

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

Когда приведенный выше код выполняется, он дает следующий результат —

black

Все ключи в Dict

Синтаксис для получения всех ключей в dict показан ниже —

[dict keys $dictname]

Пример для печати всех ключей показан ниже —

Live Demo

#!/usr/bin/tclsh

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

Когда приведенный выше код выполняется, он дает следующий результат —

colour1 colour2

Все значения в Dict

Синтаксис для получения всех значений в dict показан ниже —

[dict values $dictname]

Пример для печати всех значений показан ниже —

Live Demo

#!/usr/bin/tclsh

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

Когда приведенный выше код выполняется, он дает следующий результат —

black white

Ключ существует в Dict

Синтаксис проверки наличия ключа в dict показан ниже —

[dict exists $dictname $key]

Пример проверки, существует ли ключ в dict, показан ниже —

Live Demo

#!/usr/bin/tclsh

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

Когда приведенный выше код выполняется, он дает следующий результат —