Askamail.com

MySQL en PERL

Créer un fichier nommer sql.cgi avec pour contenu :

#!/usr/bin/perl
  use DBI;
  use CGI;
$co = new CGI;
  print $co->header;
$database="VotreBaseDeDonnee";
  $hostname="localhost";
  $login = "Login";
  $mdp = "MotDePasse";
$dsn = "DBI:mysql:database=$database;host=$hostname";
  $dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";
$requete = "SELECT * FROM laTable ";
  $sth = $dbh->prepare($requete);
$sth->execute();

while(my @row = $sth->fetchrow_array){
  print $row['0']." <br>";
  }

$sth -> finish;
$dbh -> disconnect;

Accéder à votre page sur www.votresite.com/cgi-bin/sql.cgi