#!/usr/bin/tclsh
# -------------数组-------------
set lan(0) TCL
set lan(1) C++
set lan(2) Java
for {set i 0} {$i < [array size lan]} {incr i} {
puts "index: $i, value: $lan($i)"
}
foreach index [array names lan] {
puts "key: $index, value: $lan($index)"
}
# 使用parray打印
parray lan
puts [array get lan]
puts "array size: [array size lan]"
# -------------关联数组-------------
set person(name) fish
set person(age) 60
set person(height) 175
# 不能通过索引访问,因为无法自增
foreach key [array names person] {
puts "key: $key, value: $person($key)"
}
puts "array size: [array size person]"
parray person
puts [array get person]
fh@Feihu-3 learn % ./array.tcl
index: 0, value: TCL
index: 1, value: C++
index: 2, value: Java
key: 0, value: TCL
key: 1, value: C++
key: 2, value: Java
lan(0) = TCL
lan(1) = C++
lan(2) = Java
0 TCL 1 C++ 2 Java
array size: 3
key: height, value: 175
key: age, value: 60
key: name, value: fish
array size: 3
person(age) = 60
person(height) = 175
person(name) = fish
height 175 age 60 name fish
fh@Feihu-3 learn %