Requete sql en perl Fermé

Question

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

lami20j · Answer

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

Charliedu82 · Answer

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

Requete sql en perl

2 réponses

Discussions similaires