Requete sql en perl

Fermé
Charliedu82 Messages postés 9 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 24 octobre 2009 - 18 oct. 2009 à 13:50
Charliedu82 Messages postés 9 Date d'inscription vendredi 16 octobre 2009 Statut Membre Dernière intervention 24 octobre 2009 - 24 oct. 2009 à 14:27
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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
18 oct. 2009 à 17:00
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 vendredi 16 octobre 2009 Statut Membre Dernière intervention 24 octobre 2009
24 oct. 2009 à 14:27
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