html - 使用 Perl 从 MySQL 填充下拉列表

Question

我正在尝试从 mysql 数据填充下拉列表，并从使用 DBI填充下拉列表和如何从 Perl CGI 中的下拉框中获取选定值中获得解决方案

我有以下代码：

#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Data::Dumper;
print "Content-type: text/html\n\n";
my $dbh = DBI->connect();
my @tables=$dbh->selectcol_arrayref('select TABLE_NAME from 1009_table_list order by TABLE_NAME');
print Dumper@tables; #this dumper is giving results
print qq[
<!DOCTYPE html>
<html>
<head></head>
<body>
<form id="upload-form"><table>
<tr><td>Table Name:</td><td><select name="tbname">
];
print Dumper@tables; # this dumper is not printing anything
foreach my $table(@tables)
{
print qq "<option value=\"$table\">" . $table . "</option>";
}
print qq[
</select>
</td></tr>
</table></form></body>
</html>
];

在代码中的第二条评论中，我无法获取下拉列表的 @tables 值。为什么？

score 2 · Accepted Answer

selectcol_arrayref返回数组 ref，所以：

my $tables = $dbh->selectcol_arrayref('select TABLE_NAME from 1009_table_list order by TABLE_NAME');

foreach my $table (@$tables) {
  print qq{<option value="$table">$table</option>};
}

score 2 · Accepted Answer

my @tables=$dbh->selectcol_arrayref('select TABLE_NAME from 1009_table_list order by TABLE_NAME');

返回一个array_ref，为了使用它，你必须取消引用它：

my $tables=$dbh->selectcol_arrayref('select TABLE_NAME from 1009_table_list order by TABLE_NAME');
foreach my $table (@$tables) {
    print qq~<option value="$table">$table</option>~;
}

html - 使用 Perl 从 MySQL 填充下拉列表

2 回答 2

Related

Reference