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"; |
Partager