Tclsh array operation

array set

array set Student {
	LiLei 	29
	Gray 	31
	Rose	23
}

Traverse array

foreach {name age} [array get Student "L*"] {
	puts "Name: $name\tAge: $age"
}

verification Array Whether there is

if [array exists Student] {
	puts "Array Student has existed"
}

Traverse Array

set StudentID [array startsearch Student]
while {[array anymore Student $StudentID]} {
	puts "------------"
	puts [array nextelement Student $StudentID]
	after 5000
}
array donesearch Student $StudentID

Array Size

puts "Array Size: [array size Student]"