VPF::musql - Форум программистов

GShadrin

Дата 28.7.2009, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 20.7.2009
Где: Екатеринбург

Репутация: нет
Всего: нет

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

Имя базы: 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Цитата(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);

--------------------

I'm on CPAN
I'm on github

GShadrin

Дата 28.7.2009, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 20.7.2009
Где: Екатеринбург

Репутация: нет
Всего: нет

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

Pfailed

Дата 28.7.2009, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

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

)

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

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

Код


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

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

--------------------

I'm on CPAN
I'm on github

GShadrin

Дата 28.7.2009, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 20.7.2009
Где: Екатеринбург

Репутация: нет
Всего: нет

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

chorny

Дата 29.7.2009, 03:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 27.7.2009
Где: Молдавия

Репутация: нет
Всего: нет

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

Код


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

GShadrin

Дата 29.7.2009, 07:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 20.7.2009
Где: Екатеринбург

Репутация: нет
Всего: нет

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

)

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

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

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

GShadrin

Дата 29.7.2009, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 20.7.2009
Где: Екатеринбург

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

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);

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »