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
puts $colours

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

เมื่อดำเนินการโค้ดด้านบนจะให้ผลลัพธ์ดังนี้ -

colour1 red
colour1 red colour2 green
colour1 black colour2 white

ขนาดของ Dict

ไวยากรณ์สำหรับการรับขนาดของ dict แสดงไว้ด้านล่าง -

[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

ไวยากรณ์สำหรับการดึงค่าสำหรับคีย์ใน dict แสดงไว้ด้านล่าง -

[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 แสดงไว้ด้านล่าง -

[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 แสดงไว้ด้านล่าง -

[dict values $dictname]

ตัวอย่างการพิมพ์ค่าทั้งหมดแสดงด้านล่าง -

#!/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 หรือไม่แสดงอยู่ด้านล่าง -

#!/usr/bin/tclsh

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

เมื่อดำเนินการโค้ดด้านบนจะให้ผลลัพธ์ดังนี้ -

1