Bagaimana menghubungkan ke MySQL menggunakan Perl

Artikel ini menjelaskan dua metode untuk menghubungkan ke database MySQL menggunakan Perl:

Modul DBI (Antarmuka Basis Data)
mysql lawas modul

Database MySQL dan pengguna harus sudah ada sebelum Anda dapat menggunakan metode ini. Untuk informasi tentang cara mengelola database MySQL menggunakan cPanel, silakan lihat artikel ini.

Menghubungkan ke MySQL menggunakan modul DBI (Database Interface)

Menggunakan modul DBI adalah cara yang lebih disukai untuk terhubung ke MySQL di Perl. Perl asli mysql modul tidak digunakan lagi.

Untuk terhubung ke MySQL menggunakan modul DBI, ikuti langkah-langkah berikut:

Gunakan kode Perl berikut untuk terhubung ke MySQL dan pilih database. Ganti USERNAME dengan nama pengguna Anda, PASSWORD dengan sandi Anda, dan DBNAME dengan nama database:
```
use DBI;
$myConnection = DBI->connect("DBI:mysql:DBNAME:localhost", "USERNAME", "PASSWORD");
```
Setelah kode terhubung ke MySQL dan memilih database, Anda dapat menjalankan kueri SQL dan melakukan operasi lainnya. Misalnya, kode Perl berikut menjalankan kueri SQL yang mengekstrak nama belakang dari karyawan tabel, dan menyimpan hasilnya di $result variabel:
```
$query = $myConnection->prepare("SELECT lastname FROM employees");
$result = $query->execute();
```

Menghubungkan ke MySQL menggunakan mysql lama modul

Perl asli mysql modul tidak digunakan lagi, dan hanya boleh digunakan jika benar-benar diperlukan untuk kompatibilitas mundur. Jika memungkinkan, gunakan modul DBI sebagai gantinya.

Untuk terhubung ke MySQL menggunakan mysql legacy lama modul, ikuti langkah-langkah berikut:

Gunakan kode Perl berikut untuk terhubung ke MySQL dan pilih database. Ganti USERNAME dengan nama pengguna Anda, PASSWORD dengan sandi Anda, dan DBNAME dengan nama database:
```
use Mysql;
$myConnection = Mysql->connect('localhost','DBNAME','USERNAME','PASSWORD');
```
Setelah kode terhubung ke MySQL dan memilih database, Anda dapat menjalankan kueri SQL dan melakukan operasi lainnya. Misalnya, kode Perl berikut menjalankan kueri SQL yang mengekstrak nama belakang dari karyawan tabel, dan menyimpan hasilnya di $result variabel:
```
$result = $myConnection->query('SELECT lastname FROM employees');
```

Informasi Lebih Lanjut

Untuk melihat dokumentasi online untuk modul DBI, silakan kunjungi http://dbi.perl.org/docs.