An array problem.



Brain Lock

I can't get my brain working this morning.

set LTR(0) 0
set f [lindex [split $zy ,] 1]
set dj [list $f $zy]
puts stdout $dj
LTR {Some String}
if {[string range $zy 0 7] != "SIN,CNV,"} {\
putkey2 "TRN,$SIN_INDEX" "dload TRN cmd EDC"
array set L $dj
eval incr ${f}(0) 1

if I did this all by typing this line:
set ${f}(${f}(0)) "$SIN_INDEX,$zy,$zzf,$digest"

would look like this:
set LTR(1) "$SIN_INDEX,$zy,$zzf,$digest"

}
IOW how do I get LTR(${f}(0)) to use 1 or whatever number is assigned to
the array LTR(0).

TIA.
--
Best Regards, Keith
http://home.comcast.net/~kilowattradio/
Tired of Google Groups?
http://home.comcast.net/~kilowattradio/usenet.html
.



Relevant Pages

  • Re: An array problem.
    ... puts stdout $dj ... LTR {Some String} ... array set L $dj ...
    (comp.lang.tcl)
  • Re: large array set fails
    ... Stefan Finzel wrote: ... today i found a strange effect with 'array set ' setting about 100.000 pairs. ... (it returns a string and not a list) ...
    (comp.lang.tcl)