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

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

Форум программистов > Perl: разработка для Web > musql

Автор: GShadrin 28.7.2009, 19:09

Здравствуйте.
Использую бесплатный хостинг.

Имя базы: dots8
Имя пользователя: dots8
Хост на котором расположен сервер БД: localhost
Пароль: *********

Пытаюсь залезть в базу перлом:

Код


#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type: text/plain\n\n";
use DBI;

open(DATA, "data.txt") || die;
$hostname=<DATA>;
$database=<DATA>;
$user=<DATA>;
$password=<DATA>;
close(DATA);
$dbh = DBI->connect("DBI:mysql:$database:$hostname", $user, $password) or die "Error connecting to database";
print "123456";
...
...
$rc = $sth->finish;    # закрываем
$rc = $dbh->disconnect;  # соединение

до 123456 дело не доходит
меняю местами $dbh = DBI->connect("DBI:mysql:$database:$hostname", $user, $password) or die "Error connecting to database"; и print "123456"; - печатает "123456".

data.txt:
localhost
dots8
dots8
*********

Почему?

Добавлено через 11 минут и 6 секунд
опечатался не mu конечно, а mysql
модуль DBI на хосте есть проверял

Автор: Pfailed 28.7.2009, 19:26

Цитата(GShadrin @ 28.7.2009, 19:09

)

$dbh = DBI->connect("DBI:mysql:$database:$hostname", $user, $password) or die "Error connecting to database";

Что-то невидать такого формата записи первого аргумента метода connect в perldoc'e.

Я так коннекчусь:

Код


DBI->connect("DBI:mysql:dbname=$db_name; host=$db_host", $db_user, $db_pass);

Автор: GShadrin 28.7.2009, 19:32

мне кажется dbname=$db_name эквивалентно $db_name
возвращаемый результат всегда $db_name
Попробывал - не помоголо

Автор: Pfailed 28.7.2009, 19:50

Цитата(GShadrin @ 28.7.2009, 19:32

)

Попробывал - не помоголо

Ну тогда делайте так

Код


$dbh = DBI->connect("DBI:mysql:$database:$hostname", $user, $password) or do{ print $DBI::errstr; exit };

И смотрите какую ошибку вывело.

Автор: GShadrin 28.7.2009, 19:54

да спасибо
пишет Unknown MySQL server host 'localhost' (1)
знаю где копать smile

Автор: chorny 29.7.2009, 03:18

Лучше всего поставить в начале программы

Код


BEGIN {
 use CGI::Carp qw(fatalsToBrowser); 
}

Автор: GShadrin 29.7.2009, 07:46

Цитата(chorny @ 29.7.2009, 03:18

)

Лучше всего поставить в начале программы
Выделить всёкод Perl
1:
2:
3:

BEGIN {
use CGI::Carp qw(fatalsToBrowser);
}

а что это дает и что значит?

Автор: GShadrin 29.7.2009, 09:18

Разобрался.
Все из-за последних двух символов перевода строки
Верно надо было так:

Код


open(DATA, "data.txt") || die;
$hostname=<DATA>;
$database=<DATA>;
$user=<DATA>;
$password=<DATA>;
close(DATA);

$hostname=substr($hostname,0,-2);
$database=substr($database,0,-2);
$user=substr($user,0,-2);
$password=substr($password,0,-2);

Автор: ginnie 29.7.2009, 15:09

GShadrin, лучше

Код


$hostname=substr($hostname,0,-2);
$database=substr($database,0,-2);
$user=substr($user,0,-2);
$password=substr($password,0,-2);

заменить на

Код


s/[\r\n]+// for ($hostname, $database, $user, $password);