while ($ary = $sth->fetchrow_arrayref) {
push @newary, @{$ary};
}
$sth->finish;
if ($debugmode eq "on") {
$output->insert('end', $newary[0][0]); # (1) this will cause
"Cannot use string as an ARRAY ref."
foreach my $line (@newary) {
$output->insert('end', $line); # (2) this shows all
data from query
}
}
#
# If I use: push @newary, [EMAIL PROTECTED]; then comment (1) above works
# but then comment (2) above shows will output only every other
# column from the query data!?
#
# All I want to do is get the data into @newary and be able to pass
# a specific column as a parameter or output all the data to my
# text widget. I'm confused by the inconsistencies I create when
# working with fetchrow_arrayref.
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
