вывод в виде таблицы

[Dema]

есть некий скрипт в perle в котором имеется запрос к базе данных mysql как сделать так чтобы он в htmle выдавал в виде таблицы а то он выдает только в одну строку.

[Nevermind]

1. Делаешь запрос к базе
2. Пишешь открывающий тэг таблицы
3. В цикле выводишь результаты запроса с тэгами
4. Пишешь закрывающий тэг таблицы

На PHP это будет примерно так:
$q=mysql_query("SELECT * FROM bla-bla");
echo("<table");
while($row=mysql_fetch_array($q)) {
echo("<tr><td>".$row[0]."</td></tr>");
};
echo("</table>");

[Mog.]

На перле выглядеть будет примерно так же, только вместо echo() используй print без скобок.

[Dema]

Мой скрипт выглядит так:
#!/usr/bin/perl
use CGI;
print "Content-Type:text/html\\n\\n";
print "

test

\\n";
use dbi;
use Mysql;
$dbh = Mysql->connect($localhost, $ddd, $root);
$dbh->selectdb("ddd");
$sth = $dbh->query("select film from records");
@arr = $sth->FetchRow;
# $count = $#arr; # Figure out how many elements.
 $count = $#arr;
 print "" .$arr;
 print "
" .$count;
for ($i=0;$i<=$count;$i++) { # Print out the table names.
print "";
 # здесь надо сделать разбивку каждой строки на поля
 # и в цикле их выводить
 @columns = split (/~/,$arr);
 $num_of_columns =scalar(@columns);
  for ($j=0; $j<= $num_of_columns; $j++) {
  print "".$columns[$j]."";
 }

 print "";
 }

 print "\\n";

выдает только первую строку help me, please

[Alone]

http://phpclub.unet.ru/tutor/mysql/perl_api.htm#FetchRow

print "" .$arr;
print "
" .$count;
зачем это? это не правильно с точки зрения HTML

[Dema]

это так для себя писал. эти строчки можно не смотреть. без них тоже не работает.

[Mog.]

Dema:
@arr = $sth->FetchRow;

и все что выше на твоей совести
а дальше можно:

# $count = @arr; # Figure out how many elements.
$count = @arr;
print "All elements - $count
";
print "";
for (@arr) { # Print out the table names.
print "";
# здесь надо сделать разбивку каждой строки на поля
# и в цикле их выводить
@columns = split /~/,$_; #очень может быть что и  /\\~/
$num_of_columns=1;
for (@column) {print ""}
print "";
}
print "

$num_of_columns

$_

\\n";

[Dema]

Mog спасибо за ответ но мне нужно не количество а сама строка к которой идет запрос да еще и в виде таблицы если знаешь подскажи пожалуйста.

[Mog.]

Чесно гря я не знаток БД, поэтому

Mog.:
@arr = $sth->FetchRow;
и все что выше на твоей совести

Я не в курсе насколько правильно @arr = $sth->FetchRow;
Но если это  правильно то @arr содержит как минимум одну строку
$count = @arr; - собсно число строк вынутых из БД
Все остальное - разбиение строк по разделителю "~" и вывод их в виде таблицы.
Я не говорил, что то, что написано тобой работает неправильно.

Dema:
выдает только первую строку help

чета мне кажется что в @arr одна строка и грузиться

[Croaker]

Код: [Выделить]


while(@arr = sth->fetchrow_array) {
 print "";
    foreach(@arr) {
       print "", $_, "";
    }
 print "";
}


[Croaker]

[OFF]Только этот топик к html`у не относится[/OFF]

[Mog.]

А вот и help

Croaker:
while(@arr = $sth->fetchrow_array)

Потому и была значитца тока первая строка
[off]Да уж, не html, эт верно[/off]

[Croaker]

да нет. Хотя я никогда не видел $sth->fetchrow (ща специально посмотрел в perldoc - не нашел), не факт, что его нет. Скорее всего это альтернативная запись (как $sth->fetch для $sth->fetchrow_array).

Ошибка в том, что $sth->fetchrow_array() (ди а любой другой), возвращают массив, содержащий записи только одной строки. Соответсвенно тебе его надо в цикле пускать, а ты его только один раз делаешь. Потому и одна строка.

[Dema]

народ спасибо большое за ответы все работает нормально но я чего собственно на этот топик  писал. как сделать так, чтобы html выдавал результат запроса не в одну строку а в виде таблицы.

[Mog.]

Таки у тебя не получилось что ли !?