#!/use/bin/perl -w
use Pg;
$DB = Pg::connectdb("host=10.1.1.1 dbnaame=info user=usr password=123");
$qry = "SELECT * FROM computers";
$res = $DB -> exec($qry) or die "Don't connect to Pg\n";
while ( @row = $res -> fetchrow)
{
print "$row[0]\n";
}
Не происходит вывод после выборки
Такие строчки:
при выполнении из командной строки (perl script.pl) никаких сообщений, никаких предупреждений, просто перевод строки и всё.
В чём моя ошибка?
Код:
В чём моя ошибка?
Ничего не выбрало? Стоить проверить, сколько в res есть строк.
Дело в том, что этот же код на другой машине на дампе этой же базы, работает. Неясно почему он так ведёт себя на этой машине неясно. БД видна если пытаться пинговать её с проблемной машины.
РЕШЕНО
У ...user=usr ... не хватало прав на таблицу.
У ...user=usr ... не хватало прав на таблицу.