Tra poche righe vedremo come connetterci ad un database, il PERL mette a disposizione un API "universale" per effettuare operazioni di connessione e di getione dati per qualsiasi database. Il database che prenderò in considerazione è MySQL, preferibilmente una versione minore della 4.1, perché ( e non lo so ) con un versione 4.1 non si riesce a connettere. Per lavorare bisogna scaricare il modulo DBI-mysql da cpan.

- Connettersi ad un database:
use DBI;
$dbHandle=DBI->connect("dbi:mysqlbname=$dbName", "$user", "$password");

- Effettuare operazioni diverse da una estrazione di dati:
$dbHandle->do("insert into $tabName set nome='$name', cognome='$surname'");

- Effettuare operazioni di estrazioni:
$queryHandle=$dbHandle->prepare("select * from $tabName");
# E' possibile anche effettuare operazioni di binding.
$queryHandle->execute();
if($queryHandle->rows()>0) {
print @rows; while(@rows=$queryHandle->fetchrow_array());
} else {
die("Impossibile connettersi al database");
}
$queryHandle->finish();

- Disconnettersi da un database:
$dbHandle->disconnect();