0x0010 Easiest connecting to MySQL database with DBIx::Simple and SQL::Abstract. Простой способ подключения к БД MySQL

Известно, что MySQL – это одна из самых популярных систем, позволяющих управлять реляционными БД, имеющими открытый исходный код. Причина высокой популярности данной системы в том, что она обладает высочайшей скоростью работы, проста в обслуживании и настройке, а также имеет высочайшую степень защиты. Именно эти факторы послужили поводом для широкого распространения MySQL при работе web-приложений.

Впрочем, любая эффективно работающая система, требует определённых знаний в части того, как просто и быстро к ней подключится. И один из вариантов такого подключения мы сегодня рассмотрим.

Мы будет подключаться к базе данных MySQL с помощью модулей DBIx::Simple и SQL::Abstract:

 


#!/usr/bin/perl

use v5.10;
use warnings;

use DBIx::Simple;
use SQL::Abstract;

# Параметры соединения
my $db_host    = 'mysql.example.com';
my $db_base    = 'mybase';
my $db_user    = 'mybase_user';
my $db_pass    = 'pAsSwOrD';
my $db_dsn     = "DBI:mysql:$db_base:$db_host";

my $db = DBIx::Simple->connect($db_dsn, $db_user, $db_pass, { RaiseError => 1, mysql_enable_utf8 => 1 }) or die DBIx::Simple->error;
$db->abstract = SQL::Abstract->new(case => 'lower', logic => 'and');

 

Далее по документации. Например, простая выборка пользователей; возвращается массив хэшей:

 

my $users = $db->select('users', 'id,login')->hashes();
say "$_->{id} $_->{login}" for @$users; # вывод результатов