Архив форумов ЦИТФорума

[Mak_sel]

Помогите, кто ни будь!!!!!!
Делаю первые шаги в использовании MySQL в скриптах Perl. Я не как не могу подключится к базе. Как указано в инструкциях я устанавливаю MySQL загружаю «демона» пишу скрипт показанный ниже и все работает (Все располагается на локальной машине, ОС Windows, MySQL 4.0.1.
Скрипт на перле выгледит так:
….
use strict;
use DBI;
use DBD::mysql;
my $dbh= DBI->connect('DBI:mysql:test','','') or die "Erorr connect";
…
Но при выполнении скрипта выпадает ошибка:
Database handler destroyed without explicit disconnect.

Я уже пробовал и другие различные варианты (У MySQL имя админа – root; пароль- 1):
my $dbh= DBI->connect('DBI:mysql:test','root','1') or die "Erorr connect";
my $dbh= DBI->connect('DBI:mysql:test:localhost','','') or die "Erorr connect";
my $dbh= DBI->connect('DBI:mysql:test:localhost'','root','1') or die "Erorr connect";
my $dbh= DBI->connect('DBI:mysql:test:localhost'','root','') or die "Erorr connect";

В ответ на эти строки выводится следующие:
DBI->connect(test:localhost) failed: Access denied for user: 'root@localhost' (Using password: YES) at db.pl line 7

Подскажите что я не так делаю.