Indonesia

Tutorial PostgreSQL

PostgreSQL tingkat tinggi

Antarmuka PostgreSQL

PostgreSQL - Perl Interface: A Beginner's Guide

Hai teman-teman, para ahli basisdata masa depan! Saya sangat senang menjadi panduan Anda dalam perjalanan menarik ke dunia PostgreSQL dan Perl. Sebagai seseorang yang telah mengajar ilmu komputer selama tahun-tahun, saya bisa menjamin bahwa kombinasi ini seperti mentega dan jelly - mereka hanya berkerja sangat baik bersama! Jadi, mari kita lipat lengan dan masuk ke dalam!

PostgreSQL - Perl

Instalasi

Sebelum kita mulai menciptakan magi basisdata, kita perlu mempersiapkan dapur (err... lingkungan pengembangan) kita. Jangan khawatir, ini lebih mudah daripada mengassembly furniture IKEA!

  1. Pertama, pastikan Anda telah menginstal PostgreSQL di sistem Anda. Jika belum, kunjungi situs web resmi PostgreSQL dan ikuti panduan instalasi mereka.

  2. Selanjutnya, kita perlu menginstal modul Perl DBI dan driver DBD::Pg. Buka terminal Anda dan ketik:

cpan install DBI DBD::Pg

Jika Anda di Windows, Anda mungkin perlu menggunakan ppm instead of cpan. Jangan panik jika Anda melihat banyak teks berjalan - itu hanya komputer Anda melakukan pekerjaannya!

API DBI

Sekarang kita sudah memiliki alat yang siap, mari bicarakan API DBI (Database Interface). Bayangkan ini sebagai salam rahasia yang Anda butuhkan untuk berkomunikasi dengan basisdata.

Ini adalah tabel metode DBI yang paling umum yang kita akan gunakan:

Metode Deskripsi
connect() Menghubungkan ke basisdata
prepare() Menyiapkan pernyataan SQL
execute() Menjalankan pernyataan yang disiapkan
fetch() Mengambil baris data
finish() Menyelesaikan penggunaan handle pernyataan
disconnect() Memutuskan koneksi dari basisdata

Jangan khawatir jika ini terlihat seperti sup huruf saat ini. Kita akan menggunakan setiap metode ini dalam contoh kita, dan saya berjanji mereka akan menjadi familiar seperti emoji favorit Anda!

Menghubungkan ke Basisdata

Mari kita mulai dengan mengatakan "Halo" ke basisdata kita. Ini adalah cara kita melakukannya:

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 "Terhubung ke basisdata secara sukses!\n";

mari kitauraikan ini:

  • Kita menggunakan modul DBI yang kita instal sebelumnya.
  • Kita menyiapkan rincian koneksi (nama basisdata, host, port, username, dan password).
  • Metode connect() mengatur koneksi.
  • AutoCommit => 1 berarti setiap operasi basisdata kita akan dikommit secara otomatis.
  • RaiseError => 1 memberitahu Perl untuk memunculkan pengecualian jika ada kesalahan.

Jika Anda menjalankan ini dan melihat "Terhubung ke basisdata secara sukses!", berikan diri Anda sebuah high five!

Membuat Tabel

Sekarang kita sudah terhubung, mari kita buat sebuah tabel. Bayangkan kita sedang membangun sistem perpustakaan sederhana:

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 "Tabel 'books' dibuat secara sukses!\n";

Ini apa yang terjadi:

  • Kita mendefinisikan pernyataan SQL untuk membuat tabel bernama 'books'.
  • Metode do() menjalankan pernyataan SQL secara langsung.
  • Jika tidak ada kesalahan yang muncul, tabel kita dibuat!

Operasi INSERT

Mari kita tambahkan beberapa buku ke perpustakaan kita:

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 "Buku ditambahkan secara sukses!\n";

Ini adalah penjelasannya:

  • Kita menyiapkan pernyataan SQL dengan placeholder (?).
  • Kita membuat array buku yang akan dimasukkan.
  • Kita loop melalui array, menjalankan pernyataan yang disiapkan untuk setiap buku.
  • Metode execute() mengisi placeholder dengan data kita.

Operasi SELECT

Sekarang, mari kita mengambil buku-buku kita:

$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";
}

Apa yang terjadi di sini:

  • Kita menyiapkan dan menjalankan pernyataan SELECT.
  • Kita menggunakan loop while dengan fetchrow_hashref() untuk mengambil setiap baris.
  • Kita mencetak rinciannya setiap buku.

Operasi UPDATE

Ups! Kita membuat kesalahan. "1984" sebenarnya diterbitkan pada tahun 1948. Mari kita perbaiki itu:

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

print "Buku diperbarui secara sukses!\n";

Ini apa yang kita lakukan:

  • Kita menyiapkan pernyataan UPDATE dengan placeholder.
  • Kita menjalankan itu dengan tahun yang benar dan judul buku.

Operasi DELETE

Akhirnya, mari kita menghapus buku dari basisdata kita:

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

print "Buku dihapus secara sukses!\n";

Dan ini apa yang terjadi:

  • Kita menyiapkan pernyataan DELETE dengan placeholder.
  • Kita menjalankan itu dengan judul buku yang ingin kita hapus.

Dan itu adalah! Anda telah belajar dasar-dasar berinteraksi dengan PostgreSQL menggunakan Perl. Ingat, latihan membuat sempurna, jadi jangan khawatir untuk mencoba perintah ini. Sebelum Anda tahu, Anda akan menulis kode basisdata dalam mimpian Anda (walaupun saya tidak menyarankan itu - papan ketik membuat bantal yang buruk).

Happy coding, dan semoga permintaan Anda selalu mengembalikan hasil yang Anda harapkan!

Credits: Image by storyset

Tutorial Sebelumnya:
PostgreSQL - PHP
Tutorial Selanjutnya:
PostgreSQL - Python