Подключение Perl к БД MariaDB

Небольшой Perl-скрипт, который проверит доступность подключения к серверу баз данных MariaDB на веб-сервере.

В первую очередь на сервере БД создадим пользователя db_user и базу данных test_db на веб-сервере

Для этого войдёт в консоль mysql

# mysql -u root -p

и впишем запрос:

CREATE DATABASE test_db;
CREATE USER 'db_user'@'localhost' IDENTIFIED BY 'yourPassword';
GRANT ALL PRIVILEGES ON test_db.* TO 'db_user'@'localhost';
FLUSH PRIVILEGES;
EXIT;

Затем в директории, где будут храниться CGI-скрипты (это могут быть cgi-bin, cgi, cgi-perl, perl и т.д.), создадим файл mariadb.cgi (или mariadb.pl), откроем его и впишем такой скрипт:

#!/usr/bin/perl
# в Linux в основном путь к Perl по умолчанию /usr/bin/perl, на FreeBSD - /usr/local/bin/perl

use DBI;

my $hostname = "localhost";
my $port = "3306";
my $user = "db_user";
my $password = "yourPassword";
my $dbname = "test_db";

print "Content-Type: text/html;charset=utf-8 \n\n";
print "<h1>Подключение к MariaDB</h1> \n";

my $dbh = DBI->connect("DBI:mysql:$dbname:$hostname:$port",$user,$password);
# если скрипт вместо страницы показывает ошибку, то вместо DBI:mysql пишем DBI:MariaDB

if (!$dbh) {
        print "<h2>Ошибка подключения к базе данных.</h2> \n $DBI::errstr \n";
}

if ($dbh) {
        print "<h2>Подключение к базе данных выполнено успешно.</h2> \n";
        $dbh->disconnect();
}

Проверяем.

В адресной строке браузера вводим http://IP_или_хост_сервера/путь_к_CGI-скриптам/mariadb.cgi

Страница покажет результат подключения.