Підключення до БД (приклад скрипта 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.

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

Статьи

Новости