Автор Тема: Perl и My SQL..  (Прочитано 4575 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Лысяня

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« : 26 Декабря 2003, 16:46:43 »
Не хочет работать и все ...
Не могли бы ктонибуть скинуть код для обращения к базе данных. Все установлено локально.
ActivePerl-5.8.0.806-MSWin32-x86.msi
apache_2.0.47-win32-x86-no_ssl.msi

Выдает 500 ошибку..::insane:

Оффлайн Phoinix

  • RW
  • Ветеран
  • *****
  • Сообщений: 1097
  • +0/-0
  • 2
    • Просмотр профиля
    • http://phoinix.ucoz.ru
Perl и My SQL..
« Ответ #1 : 26 Декабря 2003, 17:01:12 »
use DBI;
$name_base_mysql "demo";
$user_base_mysql "demo";
$pass_base_mysql "demo";
$host_base_mysql "localhost";
$port_base_mysql "3306";

$dbh "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh DBI->connect($dbh$user_base_mysql$pass_base_mysql);
$sql "SELECT value1, value1 FROM my_table WHERE value1 = \'1\' ";
$sth $dbh -> prepare($sql);
$sth -> execute();
while (
$tmp $sth -> fetchrow_arrayref()) {
$var0 $tmp -> [0];
$var1 $tmp -> [1];}
$sth -> finish();
$dbh -> disconnect();
  print 
"Content-type: text/html; charset=windows-1251\\n\\n";
  print 
qq "$var0 - $var1";
  exit;

Оффлайн Alone

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 182
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« Ответ #2 : 26 Декабря 2003, 18:35:41 »
как вариант
use CGI::Carp qw (fatalsToBrowser);

Оффлайн Лысяня

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« Ответ #3 : 26 Декабря 2003, 19:52:47 »
#!perl
use DBI;
$name_base_mysql = "test";
$user_base_mysql = "root";
$pass_base_mysql = "password";
$host_base_mysql = "localhost";
$port_base_mysql = "3306";

$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI->connect($dbh, $user_base_mysql, $pass_base_mysql);
$sql = "SELECT name, name FROM tabl WHERE name = \'tri\' ";
$sth = $dbh -> prepare($sql);
$sth -> execute();
while ($tmp = $sth -> fetchrow_arrayref()) {
$var0 = $tmp ->
  • ;

$var1 = $tmp -> [1];}
$sth -> finish();
$dbh -> disconnect();
  print "Content-type: text/html; charset=windows-1251\\n\\n";
  print qq "$var0 - $var1";
  exit;

База test
таблица tabl
---------------------------------
name   |    name2
---------------------------------
raz       |    dva
tri        |    chetire
pyat     |    shest
---------------------------------

 И опять 500, что не так?

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Perl и My SQL..
« Ответ #4 : 26 Декабря 2003, 20:19:57 »
#!/usr/bin/perl - полный путь к Perl
The documentations is your friend

Оффлайн Лысяня

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« Ответ #5 : 26 Декабря 2003, 20:32:48 »
У меня на локальном компьютере перл по адресу D:\\server\\Perl
с #!perl скрипты без MySQL работают нормально

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Perl и My SQL..
« Ответ #6 : 26 Декабря 2003, 20:35:14 »
поставь use CGI::Carp qw (fatalsToBrowser); во вторую строчку.
The documentations is your friend

Оффлайн Phoinix

  • RW
  • Ветеран
  • *****
  • Сообщений: 1097
  • +0/-0
  • 2
    • Просмотр профиля
    • http://phoinix.ucoz.ru
Perl и My SQL..
« Ответ #7 : 26 Декабря 2003, 20:41:59 »
Лысяня
А как у тебя с модулем DBI обстоят дела?
А самое главное как обстоят дела с модулем DBD::mysql?

Нехорошее у меня чувство, что про него то ты и забыл, т.к. установку DBI недавно уже проходили...

А вообще неплохо было бы логи ошибок посмотреть, либо то что выведет скрипт в браузер при использовании
use CGI::Carp qw (fatalsToBrowser);

Оффлайн Лысяня

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« Ответ #8 : 26 Декабря 2003, 21:09:46 »
Ввел такую строчку, вот что получилось:
Software error:
install_driver(mysql) failed: Can\'t locate DBD/mysql.pm in @INC (@INC contains: D:/server/Perl/lib D:/server/Perl/site/lib .) at (eval 1) line 3.
Perhaps the DBD::mysql perl module hasn\'t been fully installed,
or perhaps the capitalisation of \'mysql\' isn\'t right.
Available drivers: ExampleP, Proxy, Sponge.
 at D:/server/cgi-bin/index.pl line 11

DBI поставилось нормально (вроде)

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Perl и My SQL..
« Ответ #9 : 26 Декабря 2003, 21:26:37 »
DBD::mysql поставь, без этого ничего работать не будет.
The documentations is your friend

Оффлайн Лысяня

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Perl и My SQL..
« Ответ #10 : 26 Декабря 2003, 21:51:09 »
Поставил, все отлично!!!

АААгромное спасибо.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28