Tcl - Kamus

Kamus adalah pengaturan untuk memetakan nilai ke kunci. Sintaks untuk kamus konvensional ditunjukkan di bawah ini -

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

Beberapa contoh untuk membuat kamus ditunjukkan di bawah ini -

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

colour1 red
colour1 red colour2 green
colour1 black colour2 white

Ukuran Dict

Sintaks untuk mendapatkan ukuran dict ditunjukkan di bawah ini -

[dict size dictname]

Contoh untuk mencetak ukuran ditunjukkan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

Iterasi Kamus

Sebuah iterasi kamus sederhana untuk mencetak kunci dan nilai kamus ditunjukkan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

black
white

Nilai untuk Key in Dict

Sintaks untuk mengambil nilai kunci dalam dict ditunjukkan di bawah ini -

[dict get $dictname $keyname]

Contoh untuk mengambil nilai untuk kunci diberikan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

black

Semua Kunci di Dict

Sintaks untuk mengambil semua kunci dalam dict ditunjukkan di bawah ini -

[dict keys $dictname]

Contoh untuk mencetak semua kunci ditunjukkan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

colour1 colour2

Semua Nilai di Dict

Sintaks untuk mengambil semua nilai dalam dict ditunjukkan di bawah ini -

[dict values $dictname]

Contoh untuk mencetak semua nilai ditunjukkan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -

black white

Kunci Ada di Dict

Sintaks untuk memeriksa apakah ada kunci dalam dict ditunjukkan di bawah ini -

[dict exists $dictname $key]

Contoh untuk memeriksa apakah ada kunci di dict ditunjukkan di bawah ini -

#!/usr/bin/tclsh

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

Ketika kode di atas dijalankan, itu menghasilkan hasil sebagai berikut -