VPF::Большой набор данных не выводится

Firebird

Дата 25.1.2008, 00:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 30.3.2007

Репутация: нет
Всего: нет

Выполняю запрос, ошибок не происходит:

Код


$query = $dbh -> prepare(" текст запроса ");
$query -> execute();

Вывод данных.
Так работает, т.е. по строчный вывод:

Код


while(my @row = $query -> fetchrow_array)
 {
   print "@row<br>";
 }

А так нет, вывод оформленный в виде таблицы:

Код


while(my @row = $query -> fetchrow_array)
{
   print "
       <tr align='center'>
         <td></td>
         <td>$row[0]</td>
         <td>$row[1]</td>
         <td>$row[2]</td>
         <td>$row[3]</td>
         <td>$row[4]</td>
         <td>$row[5]</td>
         <td>$row[6]</td>
         <td>$row[7]</td>
       </tr>";
}

В браузере пустое поле, а в процессах появляется perl.exe и завершить его можно только вручную, даже когда вообще закрыть браузер.

Пробовал запускать в программе DzPerlEditor, запускается и таблица выводится в браузер этой программы. Скрипт совсем простой, обычная выборка данных и вывод. И еще, пробовал ограничивать количество строк с помощью LIMIT 100, таблица появляется, ставлю LIMIT 200 зависает.

nitr

Дата 25.1.2008, 03:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

Эти куски кода ничего не скажут, т.к. вполне обычный код. Даже нельзя сказать, что у вас что-то с браузером, но для теста запустите этот скрипт (как вариант):

Код

#!perl
use strict;
use warnings;

print "Content-Type: text/html; charset=windows-1251\n\n"; 

my @row = qw(testtesttesttesttesttesttesttesttest0 testtesttesttesttesttesttesttesttest1 testtesttesttesttesttesttesttesttesttest2 testtesttesttesttesttesttesttesttesttest3 testtesttesttesttesttesttesttesttesttest4 testtesttesttesttesttesttesttesttesttest5 testtesttesttesttesttesttesttesttesttest6 testtesttesttesttesttesttesttesttesttest7);

print '<table>';
foreach (0..300) {
   print "
       <tr align='center'>
         <td></td>
         <td>$row[0]</td>
         <td>$row[1]</td>
         <td>$row[2]</td>
         <td>$row[3]</td>
         <td>$row[4]</td>
         <td>$row[5]</td>
         <td>$row[6]</td>
         <td>$row[7]</td>
       </tr>";
}
print '</table>';

практически тоже самое... Если работает, значит попробуйте обновить перл smile

Или модуль DBI. Я только что протестировал и этот код и код с БД MySQL - всё выводится и с большим количеством строк.

Если ничего не помогает, то может стоит ещё какие-то данные привести для анализа. А может ещё кто-то посоветует ;)

--------------------

I love ArchLinux

Firebird

Дата 25.1.2008, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 30.3.2007

Репутация: нет
Всего: нет

  Спасибо за пример, nitr. У меня он также работает правильно.
  Пробовал выполнять запрос напрямую через Control Center, запрос выполняется очень быстро 0,5 секунд не более.

  Написал этот скрипт на PHP, все работает! Получается ошибка в интерпретаторе Perl...

  Не могли бы дать ссылку на последнюю версию Perl?

Bulat

Дата 25.1.2008, 10:39 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: нет
Всего: 57

Firebird, любопытно было бы взглянуть на запрос к БД. Думаю, после этого можно будет утверждать что ошибки в самом перле нет, просто некоторая не внимательность smile

--------------------

менеджер по кодеврайтингу smile

nitr

Дата 25.1.2008, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

ОС?

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »