in reply to scrolling list
I'm afraid you'll need to be a bit more specific -- perhaps provide some code? fetchrow_array by itself just returns a perfectly normal array. Thus:
my $sth = $dbh->prepare("SELECT foo,bar FROM baz"); $sth->execute; while (my @row = $sth->fetchrow_array) { print join "\t", @row; print "\n"; }
By "scrolling list," do you mean some sort of CGI form? A Tk widget? Give us a little more to go on..
Update: Applying judicious use of the PSI::ESP module, I'm assuming:
my $sth = $dbh->prepare("SELECT foo,bar FROM baz"); $sth->execute; my @data; while (my @row = $sth->fetchrow_array) { push @data, $row[0]; } print $query->scrolling_list(-name => 'list_name', -values => [@data]);
Further reading:
perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'
|
|---|