Discussion :

[radahm]

Bonjour,

je veux ecrire une codition dans un programme Perl,
L'expression de la condition est stockée dans une base de donnée
(ex: VAR1<3)
je recupere ce contennu dans mon prog perl ensuite je fais if(contenu_recupéré)
mais cela ne fonctionne pas. je pense que la variable contenu_recupéré est consideré comme une chaine de caractère mais pas du code Perl,

Comment faire pr convertir une chaine de caractere en code Perl?

Merci

[Olivier.p]

Ma solution n'est pas esthétique, mais tu peux essayer avec des expressions régulières (à optimiser selon tes besoins).

Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
$condition = "VAR1<3"; #ou l'extrait de ta DB
$VAR1 = 2;
if ($condition =~/(\w+)$/) 	{ $valeur = $&; }
 
if ($condition =~/>/)
{
	if ($VAR1 > $valeur) { print "condition vraie! \n"; }
	else 	{ print "condition fausse!\n"; }
}
elsif ($condition =~/</)
{
	if ($VAR1 < $valeur)  { print "condition vraie! \n"; }
	else 	{ print "condition fausse!\n"; }
}
elsif ($condition =~/=/)
{
	if ($VAR1 = $valeur)  { print "condition vraie! \n"; }
	else 	{ print "condition fausse!\n"; }
}
else 	{ print "signe non reconnu ! !\n"; }

Par contre VAR1 doit être un nombre.

Pour plus d'infos sur les expressions régulières -> By Djibril

Une autre solution consiste à attendre qu'une personne plus expérimenté que moi te réponde...

[radahm]

"VAR1<3" est seulement un exp, la condition peut etre n'importe.
auriez vous une sol svp?

Merci

[Jedai]

Tu peux utiliser eval(), néanmoins c'est un gros risque de sécurité si tu ne maitrises pas la source du code, et tu introduis également la possibilité de bugs venant de l'extérieur de ton programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my $perl_code = "7 > 6 && 18 - 5 == 13";
if( eval $perl_code ) {
  print "This could be a really bad idea, Are you sure you don't have another solution ?\n";
}

Et si tu nous expliquais ce que tu essaies de faire exactement ?

--
Jedaï