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>