Discussion :

[Konata]

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

[Jasmine80]

Tu devrais utiliser les pragma strict et warnings, tu auras peut-être une idée plus précise du problème. Tu devrais également rajouter des 'my' afin de déclarer tes variables proprement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use strict;
use warnings

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu ne dois pas mettre ton zéro entre quotes.

[psylox]

Bonjour,

C'est cool si tu t'amuses.

Mais pour plus de fun, relie la doc autour de la méthode do et de la méthode execute.
do ne te renvoie pas un statement, mais le nombre de ligne affectée; et execute s'utilise sur un objet statement renvoyé par prepare.

De plus, sur une requete SQL de type insert tu n'as rien à récupérer si ce n'est le nombre de ligne, ton fetchrow est donc totalement inutil.

Have fun ^^