Requete sql en perl

Charliedu82 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Charliedu82 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Toujours aussi newbie en perl, je dois, sur un fichier perl existant, inclure cette requête php.

$connect = mysql_connect(DB_SERVER, DB_SERVER_USERNAME,
DB_SERVER_PASSWORD)
or die('Impossible de se connecter : ' . mysql_error());

mysql_select_db(DB_DATABASE, $connect);

$sql = "INSERT INTO formulaire VALUES ('".$transaction_id."')";

A part l'appel au module DBI semble-t-il nécessaire, je patauge...

Est-ce qu'une âme charitable pourrait me traduire ceci ?

Merci beaucoup :-)

2 réponses

lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Essaie

use DBI;

my $db      ='DB_DATABASE';
my $host    ='DB_SERVER';
my $user    ='DB_SERVER_USERNAME';
my $password='DB_SERVER_PASSWORD';

my $db = DBI->connect("DBI:mysql:$db:$host",
                       "$user", "$password",
                      { PrintError => 0}) || die $DBI::errstr;
$db->do("INSERT INTO formulaire VALUES ($transaction_id)");

0
Charliedu82 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Avec un peu de retard, tu m'excuses, je viens te remercier pour ton aide.

Du coup j'ai même réussi, tout seul comme un grand, une requête Update :-)
0