Русский

Учебник PostgreSQL

Продвинутый PostgreSQL

Интерфейсы PostgreSQL

PostgreSQL и Perl: руковод для начинающих

Здравствуйте, будущие маги баз данных! Я рад быть вашим проводником в увлекательное путешествие в мир PostgreSQL и Perl. Как кто-то, кто уже давно teaches informatika, я могу заверить вас, что это сочетание похоже на арахисовое масло и джем - они просто идеально сочетаются! Так что натяните рукава и окунитесь в это!

PostgreSQL - Perl

Установка

Прежде чем мы начнем творить магию с базами данных, нам нужно подготовить нашу кухню (ну, 环境 разработки). Не волнуйтесь, это проще, чем собирать мебель IKEA!

  1. Во-первых, убедитесь, что PostgreSQL установлен на вашей системе. Если нет, перейдите на официальный сайт PostgreSQL и следуйте их руководству по установке.

  2. Далее, нам нужно установить модуль Perl DBI и драйвер DBD::Pg. Откройте ваш терминал и введите:

cpan install DBI DBD::Pg

Если вы на Windows, вам, возможно, нужно использовать ppm вместо cpan. Не пугайтесь, если вы видите много текста, прокручивающегося мимо - это просто ваш компьютер делает свою работу!

Интерфейс DBI

Теперь, когда у нас есть инструменты, давайте поговорим о API DBI (Интерфейс базы данных). Представьте их как тайные рукопожатия, которые вам нужно знать, чтобы общаться с базой данных.

Вот таблица самых commonly используемых методов DBI:

Метод Описание
connect() Подключается к базе данных
prepare() Подготавливает SQL запрос
execute() Выполняет подготовленный запрос
fetch() Получает строку данных
finish() Завершает использование обработчика statements
disconnect() Отключается от базы данных

Не волнуйтесь, если это выглядит как каша из букв. Мы будем использовать каждый из этих методов в наших примерах, и я обещаю, что они станут такими熟悉的, как ваши любимые emoji!

Подключение к базе данных

Давайте начнем с того, чтобы сказать "Привет" нашей базе данных. Вот как это делается:

use DBI;

my $dbname = "mydb";
my $host = "localhost";
my $port = "5432";
my $username = "postgres";
my $password = "password";

my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port",
$username,
$password,
{ AutoCommit => 1, RaiseError => 1 });

print "Connected to the database successfully!\n";

Давайте разберем это:

  • Мы используем модуль DBI, который мы установили ранее.
  • Мы настраиваем наши данные для подключения (имя базы данных, хост, порт, имя пользователя и пароль).
  • Метод connect() устанавливает соединение.
  • AutoCommit => 1 означает, что каждая из наших операций с базой данных будет автоматически confirm.
  • RaiseError => 1 говорит Perl поднимать исключение, если occurs ошибка.

Если вы запустите это и увидите "Connected to the database successfully!", дайте себе пятак!

Создание таблицы

Теперь, когда мы подключены, давайте создадим таблицу. Представьте, что мы строим простую библиотечную систему:

my $sql = "CREATE TABLE books (
id SERIAL PRIMARY KEY,
title VARCHAR(100) NOT NULL,
author VARCHAR(100) NOT NULL,
publication_year INTEGER
)";

$dbh->do($sql);
print "Table 'books' created successfully!\n";

Вот что происходит:

  • Мы определяем наш SQL запрос для создания таблицы под названием 'books'.
  • Метод do() выполняет SQL запрос напрямую.
  • Если не возникает ошибок, наша таблица создается!

Операция INSERT

Давайте добавим несколько книг в нашу библиотеку:

my $sth = $dbh->prepare("INSERT INTO books (title, author, publication_year) VALUES (?, ?, ?)");

my @books = (
["The Hitchhiker's Guide to the Galaxy", "Douglas Adams", 1979],
["1984", "George Orwell", 1949],
["To Kill a Mockingbird", "Harper Lee", 1960]
);

foreach my $book (@books) {
$sth->execute(@$book);
}

print "Books added successfully!\n";

Вот что происходит:

  • Мы подготавливаем SQL запрос с заполнителями (?).
  • Мы создаем массив книг для вставки.
  • Мы循环 через массив, выполняем prepared запрос для каждой книги.
  • Метод execute() подставляет данные в заполнители.

Операция SELECT

Теперь давайте получим наши книги:

$sth = $dbh->prepare("SELECT * FROM books");
$sth->execute();

while (my $row = $sth->fetchrow_hashref()) {
print "Title: $row->{title}, Author: $row->{author}, Year: $row->{publication_year}\n";
}

Что происходит здесь:

  • Мы подготавливаем и выполняем SELECT запрос.
  • Мы используем цикл while с fetchrow_hashref() для получения каждой строки.
  • Мы выводим детали каждой книги.

Операция UPDATE

Ой! Мы совершили ошибку. "1984" на самом деле был опубликован в 1948 году. Давайте исправим это:

$sth = $dbh->prepare("UPDATE books SET publication_year = ? WHERE title = ?");
$sth->execute(1948, "1984");

print "Book updated successfully!\n";

Вот что мы сделали:

  • Мы подготавливаем UPDATE запрос с заполнителями.
  • Мы выполняем его с правильным годом и названием книги.

Операция DELETE

Наконец, давайте удалим книгу из нашей базы данных:

$sth = $dbh->prepare("DELETE FROM books WHERE title = ?");
$sth->execute("The Hitchhiker's Guide to the Galaxy");

print "Book deleted successfully!\n";

Вот что произошло:

  • Мы подготавливаем DELETE запрос с заполнителем.
  • Мы выполняем его с названием книги, которую хотим удалить.

И вот оно! Вы только что научились основам взаимодействия с PostgreSQL с помощью Perl. Помните, что практика делает мастера, так что не бойтесь экспериментировать с этими командами. Before you know it, вы будете писать код для баз данных во сне (но я не рекомендую это - клавиатуры плохие подушки).

Счастливого кодирования, и пусть ваши запросы всегда возвращают те результаты, которые вы ожидаете!

Credits: Image by storyset

Предыдущий учебник:
PostgreSQL - PHP
Следующий учебник:
PostgreSQL - Python