Разработка пользовательского интерфейса к БД в СУБД MySQL. Пономарев А.А. - 29 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

print "<tr valign=middle align=center>";
@fieldname=@{ $sth->{NAME}};
for($i=0;$i<$cols;$i++)
{
print "<td><b>$fieldname[$i]</b></td>\n";
}
print "</tr>";
#Заполнение таблицы содержимым, исходя из запроса
while (my $ref=$sth->fetchrow_arrayref())
{
print "<tr align=center>";
for($i=0;$i<$cols;$i++)
{
print "<td>",$ref->[$i],"</td>";
}
print "<tr>\n";
}
print "</table>";
Листинг формирования результатов в списке
print "<SELECT name=column>\n";
# заполняем список таблиц
$sth = $dbh->prepare("show tables");
$sth->execute;
while (@line = $sth->fetchrow_array()) {
print " <OPTION>$line[0]</OPTION>\n";
1
}
print "</SELECT>”;
Шаг 3. Тестирование скрипта
Проверив скрипт визуально на наличие ошибок - отсутствие ";" в конце
строк, наличие непарных скобок и кавычек и т.п., запустите скрипт для про-
верки в баузере, перейдя предварительно в каталог cgi-bin (http://localhost/cgi-
bin/db/testform.pl).
Если в скрипте содержатся ошибки, то вы увидите сообщение типа:
syntax error at testform.pl line 18, near "open"
Execution of testform.pl aborted due to compilation errors.
1
Если требуется заполнять список несколькими полями в строке, то команда примет вид print "
<OPTION value=$line[0]>$line[0] $line[1]</OPTION>\n"; где 0 и 1
номера соответствующих атрибутов, возвращаемых запросом select
29

Страницы