Участник
Зарегистрирован: Aug 2002
Место проживания:
Публикаций: 72
Статус:  |
quote:
Первоначальное сообщение от Sky_Lynx
Кодил скрипт который должен получать данные из базы данных.
Не могу понять в чём ошибка, вот кусок скрипта:
-------------------------------------------
#!/usr/bin/perl
use DBI;
use CGI;
$database="";
$db_server="";
$user="";
$password="";
$query->new CGI;
print $query->header;
$dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
$statement ="SELECT * FROM photos";
$sth= $dbh->prepare($statement) or die "BlaBlaBla: $sth->errstr";
$rv = $sth->execute or die "BlaBlaBla: $dbh->errstr";
while (@data = $sth->fetchrow_array) {
....
}
$rc=$sth->finish;
$rc=$dbh->disconnect;
-------------------------------------------------------------------
Поидее массив @data должен содержать всю полученную инфу.
Но проблема в том, что СК_ИПТ не работает...может где ошибка? или вообще лучше по-другому кодить?
Ты когда тестируешь тоже не указываешь имя сервера? И вообще, какую ошибку перл выдает?
Я делаю так:
use DBI;
$driver = 'mysql';
$database='g';
$hostname='vgi.volsu.ru';
$username='s';
$password='s';
$dsn = "DBI:$driver:database=$database;host=$hostname";
$dbh = DBI->connect($dsn,$username,$password);
$sth = $dbh->prepare($query);
$sth->execute;
while (@row = $sth->fetchrow_array) {
print "@row\n";
}
}
$dbh->disconnect;
__________________
/\/\/\
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
Форум сетевых администраторов » Программирование » Другие » CGI & MySQL
25-08-2002 00:10
