1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| #!C:/Perl/bin/perl.exe -w
use warnings;
use strict;
use DBI; # Charger le module DBI
# Parametres de connexion à la base de données
print "Content-type: text/html\n\n";
my $BaseDeDonnees = "gestion";
my $NomHote = "localhost";
my $login = "root"; # login
my $MotDePass = "";
# Connection à la base de données mysql
my $dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;",
$login, $MotDePass )
or die "Connection impossible à la base de donnees $BaseDeDonnees !"; |
Partager