Administrare server open source

Platforma de hosting cu software liber, gratuit, open source.

Comentariile sunt închise pentru Cum accesam serverul MySQL din Perl

DBI este o interfata generala folosita pentru accesarea mai multor servere de baze de date. Asta inseamna ca o aplicatie poate fi folosita pe mai multe tipuri de servere de baze de date fara schimbari majore. Este necesar un DBD (DataBase Driver) definit pentru fiecare tip de baza de date – pentru MySQL exista un modul numit DBD::mysql. Folosind modulul DBD::mysql ne putem conecta din Perl la o baza de date folosind modulul DBI. Un exemplu de utilizare se gaseste mai jos:

#!/usr/bin/perl -w
 
use DBI;
use DBD::mysql;
 
print “Content-type: text/htmlnn”;
 
$db = “database”;
$user = “utilizator”;
$pass = “parola”;
$host = “localhost”;
 
$dsn = “dbi:mysql:$db:$host:3306;
 
$link = DBI->connect($dsn, $user, $pass);
 
$query = “SHOW DATABASES;;
$result = $link->prepare($query);
$result->execute();
 
while (@row= $result->fetchrow_array()) {
    my $tables = $row[0];
    print$tablesn<br />;
}
 
$result->finish;
exit(0);

Bineinteles, pentru a functiona trebuie inlocuit database cu numele unei baze de date existente, utilizator cu numele de utilizator, parola cu parola utilizatorului si localhost, daca e cazul, cu adresa serverului remote.

Perl

Comments are closed.