2-D Array get problem with variable index

[johnlopez2000]

#~ Please note the following array:

% array get xAssignments
{Eng Release,Quality} {doviakg5 lopezj5} {Eng Release,Materials} {doviakg lopezj} {Eng Release,Performance} {doviakg3 lopezj3} {Initial,Big guy} {verginisd lawheadg} {Eng Release,Project} {doviakg4 lopezj4} {Initial,Eng Dude} {verginisd2 lawheadg2} {Initial,Mfg Dude} {verginisd3 lawheadg3} {Eng Release,Mfg Eng} {doviakg2 lopezj2}

#~ when I attempt to ARRAY GET with a search pattern
#~ of the indexes, and the index is "hard coded"
#~ it works as expected:
% array get xAssignments {Initial,*}
{Initial,Big guy} {verginisd lawheadg} {Initial,Eng Dude} {verginisd2 lawheadg2} {Initial,Mfg Dude} {verginisd3 lawheadg3}

#~ however, when I make the array index pattern a variable
#~ it seems that it is not expanding the variable prior to
#~ searching the array with the supplied key
% set key "Initial"
Initial
% array get xAssignments {$key,*}
%

Is there something obvious I am missing?


John Lopez
Enterprise PDM Architect
lopez.john@goodrich.com

 

[marsd]

Don't know but it works fine here.
You are going a little list happy with your brackets.

>parray xassign
xassign(Eng Release,Materials)   = doviakg lopezj
xassign(Eng Release,Mfg Eng)     = doviakg2 lopezj2
xassign(Eng Release,Performance) = doviakg3 lopezj3
xassign(Eng Release,Project)     = doviakg4 lopezj4
xassign(Eng Release,Quality)     = doviakg5 lopezj5
xassign(Initial,Big guy)         = verginisd lawheadg
xassign(Initial,Eng Dude)        = verginisd2 lawheadg2
xassign(Initial,Mfg Dude)        = verginisd3 lawheadg3
>foreach poss [array name xassign] {
                       if {[regexp "$key" $poss]} {
                           puts "$poss = $xassign($poss)"
                       }
             }
Initial,Big guy = verginisd lawheadg
Initial,Mfg Dude = verginisd3 lawheadg3
Initial,Eng Dude = verginisd2 lawheadg2
>array get xassign $key*
{Initial,Big guy} {verginisd lawheadg} {Initial,Mfg Dude} {verginisd3 lawheadg3} {Initial,Eng Dude} {verginisd2 lawheadg2}

HTH