Requete sql en perl [Fermé]

Signaler
Messages postés
9
Date d'inscription
vendredi 16 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009
-
Messages postés
9
Date d'inscription
vendredi 16 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009
-
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

Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 542
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)");

Messages postés
9
Date d'inscription
vendredi 16 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009

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 :-)