Необходимо получить результат запроса в Perl-скрипте из базы данных на MSSQL.
Есть следующий скрипт:
#!/usr/bin/perl
use DBI;
use DBD::Sybase;
$user="user";
$password="password";
$dsn="DBI:Sybase:server=XXX.XXX.X.XXX:1433;database=DatabaseName";
$dbh=DBI->connect($dsn,$user,$password, {RaiseError=>1,AutoCommit=>1}) or die "DBI::errstr\n";
$sql="select * from TableName";
$sth=$dbh->prepare($sql);
$sth->execute or die "DBI::errstr\n";
while (@fields=$sth->fetchrow_array)
{
print "$fields[0] $fields[1]\n";
}
$dbh->disconnect();
Скрипт выполняется, но на экране никаких результатов запроса не видно и в помине (таблица в базе данных, естественно, не пустая). Ни при соединении с сервером, ни при запросе не выдается никаких сообщений об ошибках и тем не менее с результатами запроса проблема...
Помогите, пожалуйста, разобраться в чем здесь все-таки дело и как это можно исправить.
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on
14-Апр-04, 12:17 (MSK)
