Perl

paramétre dans un fichier de conf

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : paramétre dans un fichier de conf

web_olivier

R1 Powaaaaa

Bonjour,

Je crée un page html générée par un script perl en cgi.
Dans ce script j'utilise un fichier de configuration pour initialiser toutes mes variables.
Une des variables est un requête SQL qui contient un paramètre ($param) passé depuis la page précédente.

voici mon fichier de conf :

Code :

data_source=dbi:ODBC:localhost
user=userdb
password=1234567
Server=server1\SQLEXPRESS
sql=SELECT * FROM Mytable where name='$param'

Voici le début de mon script :

Code :

use strict;
use warnings;
use LWP::UserAgent;
use CGI;
use DBI;
use Config::File qw(read_config_file);
use Cwd;
#récupération de $param
my $cgi = new CGI;
my $param = $cgi->param('param');
#récupération de l'environnement
my $env=$ENV{"m_Envir"};
#récupération du répertoire de travail
my $rep = cwd();
#lecture du fichier de conf
my $config=read_config_file($rep.'/conf/db.conf');
#assignation des variables
my $data_source=$config->{data_source};
my $user=$config->{user};
my $password=$config->{password};
my $Server=$config->{Server};
my $sql=$config->{sql};
# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=$Server;UID=$user;PWD=$password" ) or die "Can't connect to $data_source: $DBI::errstr";
$dbh->{LongReadLen} = 25000;
# Select to get all variables
my $sth= $dbh->prepare($sql);
$sth->execute();
my @tabs;
while (my @row = $sth->fetchrow_array())
{
push (@tabs,@row)
}
my $nb_var=$sth->rows;
$sth->finish();
$dbh->disconnect;
...

Mon problème c'est que $param n'est pas interprété et ne prend pas la valeur de la variable $param et $sql=SELECT * FROM Mytable where name='$param' au lieu de $sql=SELECT * FROM Mytable where name='toto' si $param=toto.
Je ne vois pas comment faire pour que $param puisse être évalué avec sa valeur.

Quelqu'un à une idée, une piste ?

Par avance merci pour votre aide :jap:

Publicité

dede_sav

Salut,

Comme le souligne la doc DBI, "execute" peut recevoir des paramètres (ici $params) en utilisant des "?" dans la requête préparé par "prepare".

Exemple de la doc:

Code :

$sth = $dbh->prepare("SELECT foo, bar FROM table WHERE baz=?" );
$sth->execute( $baz );

Source: https://metacpan.org/pod/DBI

Application à ton cas:

Code :

my $sql = "SELECT * FROM Mytable where name='?'";
my $sth= $dbh->prepare($sql);
$sth->execute($param);

Message édité par dede_sav le 12-10-2018 à 09:32:40

web_olivier

R1 Powaaaaa

Salut Dede,

Merci beaucoup pour ton aide.
Dans mon cas ma requête doit absolument se trouver dans le fichier de conf (la requête est différente en fonction de l'environnement).
Au début je faisais à peu prés comme ça, mais maintenant je ne peu plus

:hello:

dede_sav

Je ne comprends pas, la requête sql n'est qu'une chaine de caractère.
Dans mon exemple "SELECT * FROM Mytable where name='?'" peut se trouver dans ton fichier de conf comme actuellement.

web_olivier

R1 Powaaaaa

Ah je n'avais pas compris :pt1cable:

Je test ça tout de suite

web_olivier

R1 Powaaaaa

Pareil
le name='?' n'est pas interprété lors du $sth->execute($param);

:??:

dede_sav

Tu vérifies comment ? Tu regardes au niveau de la bdd ?
Tu as vérifiés le contenu de $param ? C'est bien une chaine de caractère ?

dd

web_olivier

R1 Powaaaaa

J'affiche la valeur de $sql et le résultat de la requête qui est vide.
$param est bien valorisé, c'est une chaîne de caractère.

dede_sav

Ok, normal que tu ne vois pas de changement à "name='?'" car cela se passe lors de l'envoie de ta requête SQL vers la base de donnée.
Si tu veux voir si la requête est vraiment interprété =>
https://stackoverflow.com/questions [...] laceholder

Donc je te propose de rajouter dans ton code

Code :

$dbh->trace($dbh->parse_trace_flags('SQL|1|test'));

puis de regarder les logs.

Sinon, il faut vérifier si la requête une fois construire renvoie vraiment quelque chose depuis le serveur, si ça se trouve c'est un soucis de cast dans la condition where ... un oubli bête quoi ^^'

web_olivier

R1 Powaaaaa

Je vais tester la trace, mais si je fais directement

Code :

$sql="SELECT * FROM Mytable where name='$param'"

sans passer par le fichier de conf, ça fonctionne très bien.
Il n'y a pas de problème dans mon where

Message édité par web_olivier le 12-10-2018 à 11:28:48

Publicité

web_olivier

R1 Powaaaaa

J'ai testé la trace et le résultat envoyé dans la requête est est

Code :

SELECT * FROM Mytable where name='?'

dede_sav

Enlève peut être les simple quote autour du ?.

C'est normal que la solution ou tu mets la variable directement fonctionne.
Mais c'est parce qu'il existe dans ton fichier .pl un my $param et que tu définis l'ensemble de la requête dans ce même fichier.

gilou

Modérateur
Modzilla

Pourquoi faire dans le compliqué alors qu'il y a simple.
my $sql=$config->{sql};
$sql =~ s/$param/$param/;
et basta

Bon, si il y avait plusieurs exécutions avec des valeurs différentes dans une même session avec la BDD, on pourrait partir dans la voie que vous explorez, mais au vu de son exemple d'utilisation, cela n'a pas l'air d'être le cas.

A+,

Message cité 1 fois
Message édité par gilou le 12-10-2018 à 12:37:34

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

dede_sav

pour le plaisir de comprendre

mais sinon, oui c'est l'autre solution.

web_olivier

R1 Powaaaaa

gilou a écrit :

Merci Gilou, mais c'est pareil
J'ai toujours le $param dans la requête à la place de sa valeur !

Message cité 1 fois

web_olivier

R1 Powaaaaa

J'ai trouvé, il fallait faire
$sql =~ s/\$param/$param/;

Merciiiiiii Gilou et dd

Message édité par web_olivier le 12-10-2018 à 13:19:30

gilou

Modérateur
Modzilla

web_olivier a écrit :

J'ai toujours le $param dans la requête à la place de sa valeur !
J'ai trouvé, il fallait faire
$sql =~ s/\$param/$param/;

Oui, tu as tout a fait raison. J'avais testé sur un exemple, mais qui marchait pour de mauvaises raisons.

Pour en revenir a la question initiale, il suffit de lire la doc de perl DBI poyr avoir la réponse:
sql=SELECT * FROM Mytable where name=?
..............................
my $sth= $dbh->prepare( $sql );
$sth->bind_param( 1, $param );
$sth->execute( );

Et probablement aussi
my $sth= $dbh->prepare( $sql );
$sth->execute( $param );

S'il y a des quotes autour de la valeur dans la query standard, elles ne sont pas présentes en cas de remplacement par un ?
cf cette page de Programming the Perl DBI: https://docstore.mik.ua/orelly/linux/dbi/ch05_03.htm
ou on voit que
$sth = $dbh->prepare( "SELECT name, location FROM megaliths WHERE name = " . $dbh->quote( $siteName ) . "" );
passe a
$sth = $dbh->prepare( "SELECT name, location FROM megaliths WHERE name = ?" );
$sth->bind_param( 1, $siteName );
et ou c'est dit en toutes lettres modulo la remarque ça marche sauf quand ça marche pas.

Citation :

You may have noticed that we haven't called the quote( ) method on the values. Bind values are passed to the database separately from the SQL statement,[50] so there's no need to "wrap up" the value in SQL quoting rules.

[50]This is not strictly true, since some drivers emulate placeholders by doing a textual replacement of the placeholders with bind values before passing the SQL to the database. Such drivers use Perl's internal information to guess whether each value needs quoting or not. Refer to the driver documentation for more information.

A+,

Message édité par gilou le 12-10-2018 à 13:48:11

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

web_olivier

R1 Powaaaaa

Merci Gilou pour cette explication très enrichissante, je vais lire ça et essayer d'améliorer mon code.

A+

FORUM HardWare.fr

Programmation

Perl

paramétre dans un fichier de conf

Sujets relatifs
Macro copier-coller d'un fichier vers un autre	Déplacer plusieurs fichier en ajoutant la date
Lecture d'un fichier sur pyzo	utiliser les valeurs d'un fichier texte [ résolu ].
[VBS] Problème déplacement fichier	extraire fichier .gpx d'un site web
(Projet) Rappel de valeur d'un fichier variable	Renomez un fichier xlsx avec le numero de la semaine
[Perl] Module JSON / Lire un fichier	sauvegarder fichier XML
Plus de sujets relatifs à : paramétre dans un fichier de conf

Page générée en 0.064 secondes