Array Syntax Problem - Take a look

[BrianLeighton]

I'm new to TCL and have been trying like crazy to output the value of a certain index in a defined array. The trick is that the array name changes. I have several arrays, named STATS0, STATS1, STATS2,...STATx..and so on. I thought I could just set up a loop to increment the name (i.e STATS$x) and read the index. Here's what I've got so far...

}
proc writestats {OutputFile CellRate ShowIdle ChannelCount} {
puts $OutputFile $CellRate
for {set x 0} {$x<$ChannelCount} {incr x} {
global STATS$x ; #works fine
parray &quot;STATS$x&quot; ; #works but prints the whole array
puts $STATS0(-VPI) ;#works but don't increment obviously
# puts STATS$x(-VPI) error - don't work
# puts $STATS$x(-VPI) error - don't work
# puts [STATS$x](-VPI) error - don't work
# puts $[STATS$x](-VPI) error - don't work
# puts (STATS$x)(-VPI) error - don't work
# puts /$STATS$x(-VPI) error - don't work

Any ideas on how I need to format my syntax to make it work?

Thanks!

 

[ovey]

Try this (it looks odd but works!!)

puts [set STATS[set x](-VPI)]

Hope this helps.

 

[marsd]

Does this work for you?
proc printIncArr {array cnt} {
for {set x 0} {$x < $cnt} {incr x} {
set name [join $array$x]
upvar #0 $name loc
puts &quot;[set name] is $loc(-VPI)&quot;
}
return
}

 

[BrianLeighton]

Thanks ovey and marsd! Both solutions worked, but ovey's was exactly what I needed. Being new to TCL I forget that the &quot;set&quot; command also can be used to return a value rather than just for defining a variable. Thanks again!

Brian