VPF::не получается подключится к базам данных

izek

Дата 21.9.2006, 15:01 (ссылка)

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

Загрузка ...

мозговой штурман

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

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

я вот так и не нашёл нормального справочника по MySQL!тем не обяснено как подключатся к мускулу!народ помагите плиз подскажите как подключатся и отключатся от мускула чарез перл?

muzer

Дата 21.9.2006, 15:19 (ссылка)

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

Загрузка ...

Опытный

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

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

http://www.cs.huji.ac.il/~bioskill/MAN/DBI.html
http://dev.mysql.com/doc/refman/4.1/en/perl.html

sergejzr

Дата 21.9.2006, 15:21 (ссылка)

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

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

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

Попробуй юзать DBI

Код


#!/usr/bin/perl
use warnings;
use strict;
use DBI;         # БД
use Time::Local;
use POSIX qw(strftime);

# Логин/Пароль
my $USER     = "MYSQL_USER";
my $PASSWORD = "MYSQL_PASSWORD";

# Соеденение
my $dbh = DBI->connect(
   "DBI:mysql:" .
   "database=MYSQL_DATABASE;" .
   "host=localhost",
   $USER, $PASSWORD,
   {PrintError => 0, AutoCommit => 1});


#Тест дата
my $date = strftime("%d.%m.%Y", localtime());

#Чтение из таблицы
my $sth = $dbh->prepare("SELECT * FROM table WHERE 1") or die $dbh->errstr();
$sth->execute() or die $dbh->errstr;

#Читаем запись за записью
while( my $h = $sth->fetchrow_hashref() ) {   

   #Читаем поле из записи
   my $feld1 =$h->{feld1};
      
   #Обновляем
   $dbh->do("UPDATE table SET feld1='0',tstamp='".$date."' WHERE id='".$h->{id}."'");
   
}

# Закрываем соеденение
$dbh->disconnect();

# До свидания...
exit();

Этото вопрос в раздел perl, а не в мускул. переношу..

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

Me.
FB.
LinkedIn.
ORCID.
YT.

rcdimon

Дата 26.9.2006, 18:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет izek.

Подключиться к базе очень просто.

Код



use DBI;

my $host                =    'localhost';     # Хост сервера баз данных. Чаще всего localhost
my $base                =    'base';    # Имя базы к которой мы хотим подключиться
my $log                =    'root';    # Наш логин на сервере баз данных MySQL
my $pass                =    '';             # Наш пароль


my $dbh = DBI->connect("DBI:mysql:host=$host;database=$base", $log, $pass);
    if (! $dbh){
            print 'MySQL connect error';
            exit (0);
    }

Все. Соединение с базой у нас есть.

Теперь надо бы что ни будь сделать с ней!

Ну например подсчитаем сколько строк у нас в таблице table

Код


my $sql = "SELECT count(*) AS count FROM table";

my @row;
my $sth = $dbh->prepare($sql);
$sth->execute();
if  (($sql =~ m/^select/i) || ($sql =~ m/^show/i)){
    while (my $ref = $sth->fetchrow_hashref()) {
    push @row, $ref;
 }
     $sth->finish();

Все. Мы создали SQL запрос и отдали его на обработку MySQL серверу. Но мы ведь хотели получить ответ- сколько строк в таблице! Именно это и спешит нам сообщить сервер.. Надо только правильно принять данные от него. На самом деле мы их уже приняли. И они находятся в массиве @row. А если быть еще более точным, что в этом массиве каждый элемент- ссылка на хеш. В этом хеше ключ- имя поля базы данных, а знаечение- его значение. Почему массив? Потому что ответов от базы данных может быть много! Например мы задали такой запрос к базе, что ответ будет не один. а несколько строк. Поэтому и массив. Один ответ- один элемент.

Но в нашем случае- количество строк в таблице- ответ всего один. Поэтому вынимать мы его будем так

Код


my $hash = @row[0];
print $hash->{'count'};

Отключаться так:

Код


DBI->disconnect_all();

Вот. Если нигде не ошибся- должно работать!

Удачи в изучении Perl и MySQL smile

izek

Дата 26.9.2006, 19:04 (ссылка)

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

Загрузка ...

мозговой штурман

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

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

Спасибо огромное rcdimon!

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