Главная / Библиотека / Справка / Подключение к БД (пример скрипта Perl)

Подключение к БД (пример скрипта Perl)

MySQL
Perl
Подключение к БД MySql с помощью скрипта, написанного на языке Perl.

Для работы с MySQL из Perl -скриптов как правило используют модуль DBI. Это позволяет удобно открывать и закрывать соединения к СУБД , подготавливать и выполнять запросы к базе, обрабатывать ошибки и так далее.

Пример работы с MySQL из Perl DBI: 

#!/usr/bin/perl
        
use DBI;
        
my $host = "localhost"; # MySQL-сервер нашего хостинга
my $port = "3306"; # порт, на который открываем соединение
my $user = "ПОЛЬЗОВАТЕЛЬ_БД"; # имя пользователя
my $pass = "password"; # пароль
my $db = "ИМЯ_БД"; # имя базы данных 

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

$dbh = DBI->connect("DBI:mysql:$db:$host:$port", 
$user,$pass);
$sth = $dbh->prepare("select field1 from table2"); 
# готовим запрос
$sth->execute; # исполняем запрос

while ($ref = $sth->fetchrow_arrayref) {
print "$$ref[0]\n"; # печатаем результат
} 

$rc = $sth->finish;    
$rc = $dbh->disconnect;  # закрываемсоединение

В этом примере мы сначала определяем переменные с параметрами доступа к MySQL, далее выдаем HTTP-заголовок, так как это у нас скрипт для запуска через веб, затем соединяемся с базой, подготавливаем и отправляем select-запрос, получаем и печатаем результаты, после чего закрываем соединение. Это простейший скрипт для работы с MySQL из Perl.

При возникновении вопросов Вы всегда можете обратиться в круглосуточную Службу технической поддержки хостинга. Мы постараемся Вам помочь в кратчайшие сроки.

Вам также может помочь