Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Странная ошибка при обращении к базе.

Автор: perlovka1 19.4.2009, 07:06

Добрый день!

Проблема следующая. Есть код запроса в базу данных Postgres:

Код


$dbh = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost;port=$dbport", "$dbuser", "$dbpass", {PrintError => 0}) or die;
$query = qq~тело sql-запроса;~;
$sth = $dbh->prepare($query);
$rv = $sth->execute() or die;
while (@row = $sth->fetchrow_array) {(здесь вывод данных через print)}

При выполнении данного кода из CGI, скрипт делает die на строке $rv = $sth->execute() or die;

Если этот же код запускать из командной строки, то всё работает хорошо, данные из базы извлекаются.

Есть ещё одна база с аналогичной структурой, отличается только именем, владельцем и данными. При обращении к этой базе CGI-скрипт не умирает.

С правами порядок, иначе die был бы на стадии коннекта к базе. С запросом тоже порядок, т.к. он выполняется из командной строки, а также через PgAdmin III.

В чём проблема, понять не могу. Кто-нибудь может подсказать? Заранее спасибо!

Автор: arto 19.4.2009, 08:32

die $dbh->errstr ?

Автор: sir_nuf_nuf 20.4.2009, 11:21

Скорее всего в проблема в переменных окружения.
При работе в CGI режиме - они переназначаются.

При подключении к базе данных клиент (драйвер) пытается получить хост \ порт \ имя базы \ имя юзера
из параметров, если не удается - из переменных окружения
PGHOST
PGPORT
PGDATABASE
PGUSER

В командной строке - эти переменные проставлены, в CGI - нет.
Сравните их.

А еще проверьте dbname=$dbname - скорее всего имя базы задается не так