Bonjour,

Je commence tout juste le PERL, et je m'intéresse actuellement aux interactions possibles de ce langage avec une base de données grâce a DBI.
J'ai le code suivant:

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
28
29
30
31
 
#!/usr/bin/perl
 
use DBI;
use CGI;
 
$co = new CGI;
print $co->header;
 
$database="test";
$hostname="localhost";
$login = "test";
$mdp = "*******";
 
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";
 
%data = ("id" => "", "nom" => "test", "boite" => "test", "screen" => "test", "plateforme" => "test", "genre" => "test", "joueurs" => "1", "description" => "test", "année" => "test", "editeur" => "test", "developpeur" => "test");
 
$query = "INSERT INTO test (id, nom, boite, screen, plateforme, genre, joueurs, description, année, editeur, developpeur) VALUES ('$data{id}','$data{nom}','$data{boite}','$data{screen}','$data{plateforme}','$data{genre}','$data{joueurs}','$data{description}','$data{année}','$data{editeur}','$data{developpeur}');";
 
$sth = $dbh->do($query);
 
$sth->execute();
 
while(my @row = $sth->fetchrow_array){
print $row['0']." <br>";
}
 
 
print "Le  jeu " . $sth->{'id'} . "a été inséré dans la base!\n";
Oui il pourrait être simplifié, mais je m'amuse a essayer diverses choses étant débutant

Le problème viens du fait que ce script m'affiche une page blanche, alors que le chmod est bien sur 755, et que DBI et DBD-MySQL sont bien installés.

J'ai été voir les logs, et c'est ecrit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
MonIP - - [09/Jun/2008:15:02:03 +0200] "GET /cgi-bin/sql.cgi HTTP/1.1" 500 - "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"
Si quelqu'un a une idée, merci d'avance