morissardj's Home Page
Home
Perl
Perl
-
Connection a une base de donnees
Apres l'installation du module DBD et DBI vous pourrez vous connectez a des bases de donnees.
Connect.pl
#!/usr/bin/perl -w #!/usr/bin/perl use DBI; $database='GENES'; $hostname='localhost'; $mysqluser='root'; $mysqlpass=''; $dbh=DBI->connect("DBI:mysql:$database:$hostname",$mysqluser,$mysqlpass)or die "Echec de la connexion\n"; $sth=$dbh->prepare("SHOW DATABASES"); $sth->execute; while (@enr = $sth -> fetchrow_array) { print "@enr[0]\n"; } $sth->finish; $dbh->disconnect;