Re: Dynamic variables and lists

ssriperu1@yahoo.com wrote:
# Here's my problem:
#
# % set a power
# power
# % set ${a} [list a b c d]
# a b c d
# % set second [lindex ${a} 1]
# % puts $second
# # prints nothing
# % set second [lindex eval ${$a} 1]
# can't read "$a": no such variable
# % puts $a
# power
# % set second [lindex eval $a 1]
# bad index "power": must be integer or end?-integer?
#
# How do I get access to the $power list without specifying "power" ?

% set a power
power
% set ${a} [list a b c d]
a b c d
% lsort [info vars]
a argc argv argv0 auto_index auto_oldpath auto_path env errorCode errorInfo power tcl_interactive tcl_libPath tcl_library tcl_patchLevel tcl_pkgPath tcl_platform tcl_rcFileName tcl_traceCompile tcl_traceExec tcl_version
% set a
power
% set power
a b c d
% set second [lindex ${a} 1]
% set second [lindex $power 1]
b
% set second [lindex eval ${$a} 1]
can't read "$a": no such variable
% set second [lindex [set {$a}] 1]
can't read "$a": no such variable
% set second [lindex [set $a] 1]
b

--
SM Ryan http://www.rawbw.com/~wyrmwif/
So....that would make Bethany part black?