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

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

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

Автор: oogreenoo 16.4.2006, 14:33

вот такое начало проги

#!c:/usr/bin/perl.exe -w

use DBI;
use CGI;

print "Content-type: text/html\n\n";

$dbh = DBI->connect('DBI:mysql:database=test:host=localhost', 'root', '');

после этой строчки ничего не работает и никакой ошибки не выдаёт smile

если добавляю use strict то выдаёт ошибку 500

Автор: nitr 16.4.2006, 15:45

естственно...
прочти внимательно http://perldoc.narod.ru/perl-dbi_ref.pdf

Автор: sergejzr 16.4.2006, 15:51

Модератор: Название темы должно отражать ее суть!

Автор: shootnix 16.4.2006, 16:15

Не может к базе подключиться. Стало быть, не правильный способ это... Вот как я делаю, у меня работает:

Код


use DBI
open STDERR, ">err.txt";
@dbs = DBI->data_sources("mysql");
$dbh = DBI->connect('DBI:mysql:dbName', 'login', 'passwd');
# тут что-нибудь делаем...
print  DBI->errstr;
close STDERR;

Автор: oogreenoo 16.4.2006, 16:16

Модератор: Название темы должно отражать ее суть!
ок, чего-то я не нашёл как её изменить...

а теперь вот так

#!perl -w

use strict;
use DBI;

use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

my $dbh = DBI->connect("DBI:mysql:host=localhost;database=test", "root", "123456", {PrintError => 0, RaiseError => 1});
my $result = $dbh->do("SHOW TABLES");
print $result, "\n";

выдаёт ошибку:
install_driver(mysql) failed: DBD::mysql object version 2.9006 does not match bootstrap parameter 3.0002_5 at C:/usr/lib/DynaLoader.pm line 225.
Compilation failed in require at (eval 2) line 3.