Perl работа с mysql через DBI

Для работы с мускулом через perl обычно используют модуль DBI, небольшой пример как 

#!/usr/bin/perl
use DBI;
my $host = "localhost"; # MySQL-сервер нашего хостинга
my $port = "3306"; # порт, на который открываем соединение
my $user = "ПОЛЬЗОВАТЕЛЬ_БД"; # имя пользователя
my $pass = "password"; # пароль
my $db = "ИМЯ_БД"; # имя базы данных
$dbh = DBI->connect("DBI:mysql:$db:$host:$port",$user,$pass);
$sth = $dbh->prepare("select * from table");
$sth->execute; # выполняем запрос
while ($ref = $sth->fetchrow_arrayref) {
print "$$ref[0]\n"; # печатаем результат
}
$rc = $sth->finish;
$rc = $dbh->disconnect;  # закрываем соединение

Думаю на основе этого примера можно уже воять что-то свое.

Поделись с друзьями:

Опубликовано 28.09.2011 в 14:51 · Автор komivlad · Ссылка
Рубрики: DataBases, MySQL, perl, Programming · Теги: , ,

2 комментария

Подписаться на комментарии по RSS

  1. Написал(-а) komivlad
    08.10.2012 в 09:52
    Ответить · Ссылка

    Пожалуйста!)

  2. Написал(-а) Женя
    08.10.2012 в 08:13
    Ответить · Ссылка

    Супер! Благодарю! 

Подписаться на комментарии по RSS

Написать комментарий