First here's my code:

while (my $ref = $dblist -> fetchrow_arrayref ())   {
                     $surveyQuestions{question}[$counter]= $ref->[0];
$surveyQuestions{displayType}[$counter]=$ref-> [1];
                     $surveyQuestions{saveValue}[$counter]=$ref->[2];
                     #Get Answers:
                     $ref->[2]=~ s/.*\.//;
                     $baseColumn=$ref->[2];
                     @answers=$tbl_info->members ($baseColumn);
                     [EMAIL PROTECTED];
                     $counter++;
                     print @answers;   #  <--- Prints the answers
correctly
                 }

...

print "Answers:$surveyQuestions{answers}[$x]\n;   # <--- Prints the
number of answers instead

My problem is that I always get the number of answers instead of the
answers.  What am I doing wrong?


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to