Discussion :

[mrtatou]

bon alors je debute tout juste en programmation et je galere dur en perl. voici mon probleme:
j'ouvre dans un fichier .pl un fichier text où se trouve des variables que je vais devoir exploiter dans mon fichier.

mon fichier texte ressemble à ca:
variable1="le petit oiseau";
variable2="le mechant garcon";
.........

alor pour le moment mon fichier principal ressemble à ca( je passe sur l'en-tête...):

open(MON_FICHIER,"lefichier.txt");
while<MON_FICHIER>
{
my $varname=_$;
my $varcontent=_$;

#et là je cherche comment traiter mes variables pour qu'elles contiennent pour la première tout ce qu'il y a avant le "=" et l'autre tout ce qu'il y a après.
}

si vous avez des idées
merci beaucoup!!!!!

[Mr6]

ensuite, pour ce que tu cherches à faire, tu peux utiliser la fonction split :

Code :

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

1
2
 
my ($varname, $varcontent) = split /=/,$_;

@+
Mr6

[mrtatou]

merci beucoup ca m'aide bien
maintenat nouveau probleme, j'ai oublié de bien détailler mon fichier text:
"
$variable1= "le petit oiseau"; #variable d'initialisation
..........
"
comment faire pour que le ";" ainsi que le commentaire ne soit pas stocker dans ma deuxieme variable?

[Mr6]

comme ceci :

Code :

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

1
2
 
my ($varname, $varcontent,$reste) = split /=|\;/,$_;

pour la 2ème fois :

[mrtatou]

merci encore une fois...

maintenant commant faire pour utiliser ces variables(exportées de mon fichier text) dans mon code. j'imagine qu'il va falloir déjà les nommer en tant que variable avec un "my"?

en fait il faut que je puisse me servir de ces nouvelles variables en les utilisant comme:
$varname=$varcontent;

[Hide]

sur le code de Mr6 :

Code :

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

1
2
3
4
 
$varname = le nom de ta variable (ex : $variable1)
$varcontent = le contenu de ta variable (ex : "le petit oiseau")
$reste = contient le reste (ex: #variable d'initialisation)

my précise si ta variable est locale ou globale

Voir la FAQ

[mrtatou]

ok.

en fait voila mon code:

Code :

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

1
2
3
4
5
6
7
 
while<MON_FICHIER>
{
my($varname,$varcontent)= split.......  #ca decoupe impec merci :)
print $varname;
print $varcontent."\n";
}

cette boucle fonctionne tres bien et m'affiche toutes mes variables avec leurs valeurs.
Mais je voudrai pouvoir extraire ces variables en question avec leur noms et valeurs car plus loin mon code attend ces variables.

[2Eurocents]

Récupérer des variables dont les valeurs, et surtout les noms sont définies dans un fichier peut être une opération à risque.

Il existe cependant plusieurs possibilités.

L'une d'elles est d'écrire ce fichier de variables en perl (dans le cas que tu nous montres, il suffirait d'ajouter un $ au nom de chaque variable) et, dans le script appelant, il suffit de faire un

Code :

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

do 'fichier_des_var';

Cette manipulation n'est pas forcément compatible avec les clauses strict et warnings (enfin, surtout avec strict). Et quand bien même, il faut aussi maitriser la portée des variables : si elles sont définies avec my, on ne les récupérera pas !


Une autre solutions, qui a nettement ma préférence, est de remplir une table de hachage avec tes "variables externes". On utilise alors comme clef le nom de la variable, pour indexer la valeur :

Code :

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

1
2
3
4
5
6
my %variables;
 
...
 
# dans la boucle de lecture
$variables{$varname}=$varcontent;

Comme ça, tout est compatible avec strict, il est possible d'avoir la liste des noms des variables (par keys(%variables)) et on peut récupérer n'importe quelle valeur à tout moment.

Il ne faut pas hésiter

[mrtatou]

ok merci!

maintenant je n'arrive pas à exploiter ces variables....

pourtant je met bien(apres ma boucle de récupération et ma déclaration de table de hachage):

Code :

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

1
2
3
 
 
print $variables{nom_d'une_variable};

mon appel est il mauvais ou est-ce un autre probleme?

[Hide]

Code :

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

1
2
 
print $variables{'$variable1'}  ;

la chaine de caractère '$variable1' est le nom de la clé tu dois la mettre entre apostrophe.

[2Eurocents]

La déclaration doit être faite avant la boucle.

Le remplissage doit être fait dans la boucle.

L'utilisation est faite après la boucle.

Code :

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

print $variables{nom_d'une_variable};

J'imagine que le "d apostrophe une" n'est pas réellement le contenu de ton code ...

L'élément entre les { } doit être une chaine de caractères, et correspondre exactement (espaces et autres symboles compris) à la clef utilisée lors du remplissage.

En sortie de la boucle de remplissage, on peut vérifier le contenu de la table de hachage avec un petit

Code :

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

print "variable{".$_."} -> ".$variables{$_}."\n" foreach (keys (%variables));

[mrtatou]

ok merci beaucoup!

petite précision pour ceux qui auront besoin du code il ne faut pas mettre le $ devant le nom de la variable.

Code :

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

1
2
3
 
 
print $variables{'variable1'}  ;

[mrtatou]

Encore un souci avec mon exploitation de variable dans un fichier perl venant d'un fichier text.
Dans mon fichier text j'ai une variable du style

Code :

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

1
2
 
variable_1=hit=1$;

Le souci c'est que le découpage ne laisse que dans ma variable "variable_1" le "hit", alors que je voudrai que cette "variable_1" contienne: "hit=1$".
Est il possible de faire quelque chose dans mon split ou autre par sachant que mes autres variables sont du style: "variable_2="le petit chat"; ?
merci

[2Eurocents]

Remplacer le split par une expression rationnelle bien pensée ???

Code :

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

my ($varname, $varcontent) = ($_ =~ m/(.*?)=(.*?)\;/);

[mrtatou]

MERCI encore une fois!!!