Discussion :

[Quaker]

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 :

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

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 :

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

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 :

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

1
2
3
4
5
6
7
 
open(IN,"fichiervariables");
while(<IN>){
 ($nomVar,$valVar)=split(" ",$_);
 ${$nomVar} = eval($valVar);
}
close(IN);

Merci d'avance,


Quaker

[Ludo167]

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

[Jedai]

Je pense que tu trouveras ton bonheur dans cette regex :

Code :

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

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

[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 !!
(c'est du moins l'opinion de tous les programmeurs expérimentés que je connais...)

--
Jedaï

[Quaker]

Merci pour vos reponses.

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

Merci,

Quaker

[Jedai]

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 :

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
 
#! /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ï

[Quaker]

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

Cool ce forum...

Quaker