[langage] eval

Bonjour,

je veux faire un truc a priori simple mais comme je cherche depuis 1h sans avoir trouvé de réponse ca doit pas etre si simple.
Voila j ai une liste de variable defini dans fichier externe de la facon suivant :

Code:

---

1 2 3 4 5

var1 val1 var2 $var1/val2 var3 $var1/$var2 ....

---

Et j aimerais definir ces differentes variables dans mon script perl pour qu' au final j ai ca :

Code:

---

1 2 3 4 5

$var1 = "val1"; $var2 = "val1/val2"; $var3 = "val1/val1/val2"; ....

---

voila ce que j ai pondu mais ca ne marche pas mes variables composé d'autre variables restent vide :

Code:

---

1 2 3 4 5 6 7

open(IN,"fichiervariables"); while(<IN>){ ($nomVar,$valVar)=split(" ",$_); ${$nomVar} = eval($valVar); } close(IN);

---

Merci d'avance,


Quaker

slt,

Pour resoudre ton probleme ,tu crées un tableau avec la fonction split et tu evalues chaques cases de ton tableau ainsi apres tu fais un petit join et le tour est jouée je sais que c possible avec regexp!!!


bye Ludo :lol: :lol: :lol:

Je pense que tu trouveras ton bonheur dans cette regex :

Code:

---

1 2	$valvar =~ s<(\$[^/]+)><$1>eeg;

---

:D
[EDIT] Par ailleurs je te recommande chaudement les hash au lieu des références symboliques, ça t'évitera des cauchemars plus tard lorsque tu t'apercevras que tu as modifié par inadvertance une autre variable essentielle à ton script...
Les références symboliques pollue ton espace de nom et n'ont aucun avantage par rapport à un hash, les références symboliques c'est BAD !! :evil:
(c'est du moins l'opinion de tous les programmeurs expérimentés que je connais...)

--
Jedaï

Merci pour vos reponses.

Par contre je ne comprend pas ton expression reguliere Jedai. Tu pourrais me l expliquer bievement... :oops:

Merci,

Quaker

Voilà une solution qui marche (j'utilise un hash plutôt qu'une référence symbolique, c'est pourquoi la régex est un peu différente) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#! /usr/bin/perl use strict; use warnings;   my %hashVar; while(<DATA>){ chomp; my ($nomVar,$valVar)= split; print $nomVar, " : ", $valVar, "\n"; $valVar =~ s<\$([^/]+)><$hashVar{$1}>g; $hashVar{$nomVar} = $valVar; print $nomVar, " : ", $hashVar{$nomVar}, "\n"; }   __DATA__ var1 val1 var2 $var1/val2 var3 $var1/$var2

---

Je te conseille cette solution, les références symboliques sont vraiment à proscrire absolument.

--
Jedaï

Génial ca marche !!!! Merci et bravo :bravo:

Cool ce forum...

Quaker