array of array

Post by **CrazyCat** » Mon Sep 29, 2003 2:07 pm

well, another trouble...
I want to create an array of array, to get this kind of values:
test_array(first_channel)(0) = users
test_array(first_channel)(1) = voices
test_array(first_channel)(2) = halfs
test_array(first_channel)(3) = opers
test_array(second_channel)(0) = users
test_array(second_channel)(1) = voices
test_array(second_channel)(2) = halfs
test_array(second_channel)(3) = opers
but first_channel, second_channel are variables coming from [channels]

So, I make:

Code: Select all

foreach my_chan [channels] {
set test_array([string tolower $my_chan]) { "0" "0" "0" "0"}
}
....
proc fillin {channel} {
global test_array
set test_array((${channel})(0) "x"
set test_array((${channel})(1) "y"
....
putlog "$test_array((${channel})(0) -- $test_array((${channel})(1)"
}

And the response is always: Tcl error [fillin]: can't read "test_array((yourchan)": no such element in array (my channel is #yourchan)

Post by **caesar** » Mon Sep 29, 2003 2:16 pm

instead of test_array(second_channel)(0) = users and so on use something like test_array(second_channel:0) = users ..

Post by **CrazyCat** » Mon Sep 29, 2003 2:26 pm

YESSSSSSSSS!!!
thanx a lot

strikelight · Post by **strikelight** » Mon Sep 29, 2003 7:12 pm

or a more common practice is to use commas to represent (not really multi-dimensional for all intensive purposes) multi-dimensional arrays...(Also more practical in this case in particular, as channel names may contain a :, but are not allowed to contain a ,)...

ie. $test_array(#chan1,0) , $test_array(#chan2,1) ...

Post by **CrazyCat** » Tue Sep 30, 2003 2:53 am

I'll keep it in my mind and won't re-ask for it

Thanx a lot