Tcl - Diccionario

Un diccionario es una disposición para asignar valores a claves. La sintaxis del diccionario convencional se muestra a continuación:

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

A continuación se muestran algunos ejemplos para crear un diccionario:

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

colour1 red
colour1 red colour2 green
colour1 black colour2 white

Tamaño de Dict

La sintaxis para obtener el tamaño de dict se muestra a continuación:

[dict size dictname]

A continuación se muestra un ejemplo para imprimir el tamaño:

#!/usr/bin/tclsh

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

2

Iteración del diccionario

A continuación se muestra una iteración de diccionario simple para imprimir claves y valorarse del diccionario:

#!/usr/bin/tclsh

set colours [dict create colour1 "black" colour2 "white"]
foreach item [dict keys $colours] {
   set value [dict get $colours $item]
   puts $value
}

Cuando se ejecuta el código anterior, produce el siguiente resultado:

black
white

Valor de Key in Dict

La sintaxis para recuperar el valor de key in dict se muestra a continuación:

[dict get $dictname $keyname]

A continuación, se muestra un ejemplo para recuperar el valor de la clave:

#!/usr/bin/tclsh

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

black

Todas las claves en Dict

La sintaxis para recuperar todas las claves en dict se muestra a continuación:

[dict keys $dictname]

A continuación se muestra un ejemplo para imprimir todas las claves:

#!/usr/bin/tclsh

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

colour1 colour2

Todos los valores en Dict

La sintaxis para recuperar todos los valores en dict se muestra a continuación:

[dict values $dictname]

A continuación se muestra un ejemplo para imprimir todos los valores:

#!/usr/bin/tclsh

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

black white

La clave existe en Dict

La sintaxis para verificar si existe una clave en dict se muestra a continuación:

[dict exists $dictname $key]

A continuación se muestra un ejemplo para comprobar si existe una clave en dict:

#!/usr/bin/tclsh

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

1