Bonjour,

Voici le code de mon script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#!/usr/bin/perl 
use DBI;
use CGI;
 
$co = new CGI;
print $co->header;
 
$database="***";
$hostname="****";
$login = "***";
$mdp = "***";
 
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";
 
$requete = "SELECT * FROM **** ";
$sth = $dbh->prepare($requete);
 
$sth->execute();
 
while(my @row = $sth->fetchrow_array){
print $row['0'];
}
 
$sth -> finish;
$dbh -> disconnect
Le code fonctionne parfaitement en executant cette commande en shell :
"perl -w sql.cgi"

Lorsque je le test sur Firefox 3.0, Rien ne s'affiche Pourquoi ?

Merci