TCL get array indices code example

Example: TCL get array indices

# Tcl - Tool Command Language
# Make an example array:
for {set i 0} {$i < 10} {incr i} {
	set Arr($i) [expr $i*$i];
};
set Arr(Dave) "This Array belongs to Dave";
# Get Array index values by using the "array names <arrayName>" command:
puts [array names Arr]

# Output: Dave 8 4 0 9 5 1 6 2 7 3