Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » MySQL - [решено] Perl. connect mysql.

Ответить
Настройки темы
MySQL - [решено] Perl. connect mysql.

Новый участник


Сообщения: 38
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте, друзья. Помогите пожалуйста новичку.
Я дилетант в perl-е, но очень хочу освоить его.
Захотелось попрактиковаться в работе с mysql. Но не получается даже подключиться к базе.
Код: Выделить весь код
#!/usr/bin/perl 
$db_user = BachiStil; 
$db_password = *******; 
use DBI; 
$dbh=DBI->connect("DBI:mysql:print:FreeBSD", BachiStil, ****, {RaseError => 1});
И выдает
Код: Выделить весь код
DBI connect ('print:FreeBSD','BachiStil',...) failed: Access denied for user 
'BachiStil'@'FreeBSD' (using password: YES) at ./print.pl line 5

-------
Жизнь продолжается...


Отправлено: 07:51, 03-07-2009

 

Аватара для dmitryst

Ветеран


Сообщения: 5219
Благодарности: 540

Профиль | Сайт | Отправить PM | Цитировать


BachiStil, мда.... у вас сложный случай... Кто ж строки пишет без кавычек?

Код: Выделить весь код
#!/usr/bin/perl 

use DBI; 
$password = 'toor';
$user = 'root';
$data_source = 'DBI:mysql:test';   ####   база  test
$db = DBI->connect ($data_source, $user, $password)|| die "Cant do prepare: " . $db->errstr();  # вот так, чтоб не гадать потом, что за ошибка

$sql = "SELECT `id`, `name`, `code` FROM `personal` WHERE `position`='waiter' ORDER BY `name`"; # пример запроса
$sth2 = $db->prepare ($sql) ||  die "Cannot do SELECT: " . $db->errstr();#  пихаем наш запрос базе....
$sth2->execute;  #  ... если нет ошибок, то исполняем его

while (($id, $name, $code) = $sth2->fetchrow_array ())   # обрабатываем ответ...  он идет в виде массива
{
/// тут пишем ваш код обработки, если нужно

$position =  '<option value="'. $id . '">'. $name . '</option>';
push @options, $position ;
push @pose, '0';
push @codes, $code;
}
$sth2->finish;   # все, ответ разобран, завершаем этот запрос

$db->disconnect(); # отсоединяемся от базы
Цитата BachiStil:
DBI connect ('print:FreeBSD','BachiStil',...) failed: Access denied for user 'BachiStil'@'FreeBSD' (using password: YES) at ./print.pl line 5 »
ну так у вас запрешен доступ 'BachiStil'@'FreeBSD' - зайдите через клиента mysql локально и дайте ему привилегию входа с любой машины

-------
Осваиваю FreeBSD

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:07, 03-07-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 38
Благодарности: 0

Профиль | Отправить PM | Цитировать


dmitryst,
Разрешил вход с любой машины все равно тоже самое.
попробовал вот так:
Код: Выделить весь код
$dbh=DBI->connect("DBI:mysql:database=print;", BachiStil, ****, {RaseError => 1});
теперь вот что выводит:
Код: Выделить весь код
Can't set DBI::db=HASH(0x825f178)->{RaseError}: unrecognised attribute name or
 invalid value at / usr/local/lib/perl5/site_perl/5.8.9/mach/DBI.pm line 693. 
Can't get DBI::db=HASH(0x825f178)->{RaseError}: unrecognised attribute name 
at /usr/local/lib/per l5/site_perl/5.8.9/mach/DBI.pm line 693.

-------
Жизнь продолжается...


Отправлено: 08:12, 07-07-2009 | #3


Новый участник


Сообщения: 38
Благодарности: 0

Профиль | Отправить PM | Цитировать


Нашел ошибку. Опечатался я. RaiseError

-------
Жизнь продолжается...


Отправлено: 09:27, 07-07-2009 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » MySQL - [решено] Perl. connect mysql.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочее - [решено] z-connect oleg1967 Сетевые технологии 1 19-01-2010 14:20
perl and mysql ultrakiller Программирование в *nix 1 15-12-2009 15:27
PERL + MySQL SantaXP Программирование в *nix 12 19-07-2005 12:54
есть форумы Perl+MySQL? koresaram Вебмастеру 2 10-12-2003 21:34
MySQL+Perl Patrick Вебмастеру 1 14-09-2003 02:39




 
Переход