plzzzzzzzzzzzzzzzz aider moi

Bonjour,

Je me demande lla solution a un petite problem. Je recupere  un  chemin a partir d un fichier text par exemple /home/$TECHNO

Avec $TECHNO une variable declarer a l interieur de mon programme l'erreur c'est que il me donne pas le contenu de $TECHNo mais il la recopier tel qu il est

  voici le code d appel

   sub options2
    {
      open (CFG, @_[0]) || die "Cannot open config file $!";  ## avec  @_[0] est un fichier donner en parametre  
                                                                                   ##lors de l appel

     foreach (<CFG> )
              {

              if(/^\$PATH_DKVERSION/)
                {
                  @t13=split(/=/,$_);

                 $PATH_DKVERSION="$t13[1]";

                  print "$PATH_DKVERSION \n";
   

                    }
                   }
       close CFG;
                   
     }

Dans le fichier text j ai la ligne suivant :    $PATH_DKVERSION=/home/imgana/$TECHNO/$DK=

lors de l execution il me donne le chemin tel qu il est   /home/imgana/$TECHNO/$DK   moi ce que je veux c'est plus de /home/imgana il doit recuperer le contenu de mes variables  $TECHNO/$DK

Svp  aide moi.

reponde par mail  <effacé par Elmoricq>

Poste édité, découpé, et doublons fermés.
 
Merci de ne pas créer des tas de topics pour ton problème, et de faire des efforts sur l'orthographe. De plus, les réponses se font sur le forum, pour pouvoir aider ceux qui rencontreraient un problème similaire.

qu'est ce que tu dis exactement

Il te dis juste que ca sert à rien de créer 50 topics avec la même question.
Et si tu persistes tu risques de te prendre un ban
et aussi les réponses doivent être faites dans ce topic et pas autrement

Tu as créé plusieurs fois le même topic en fait, donc j'ai dû fermer les deux autres pour ne pas faire doublon.
De plus, on ne répond pas par mail pour deux raisons :

• HFr est parsé par google donc, potentiellement, tu peux subir du spam à foison en laissant ton adresse mail dans un post
• Un forum est, par définition, collaboratif : une réponse apportée à quelqu'un peut servir à d'autres personnes ayant le même problème

Sinon, pour ton problème, il suffit d'une regexp pour demander à PERL d'interpréter ta variable.
Je te propose ce snippet, tu ne devrais pas avoir de mal à l'adapter à ton besoin :

#! /usr/bin/perl
 
use strict; 
 
my $foobar = '/home/$USER';
 
print "Variable non interprétée, comme dans ton problème donc : $foobar\n";
 
# but de la regexp : récupère tout ce qu'il y a après un '$' jusqu'à trouver un / ou une fin de ligne
# la seconde partie interprète avec le hashage %ENV le contenu de la variable récupérée dans $1
# $2 contient quant à elle / ou <fin de ligne>
$foobar =~ s#\$(.*?)(/|$)#$ENV{$1}$2#g;
 
print "Variable interprétée : $foobar\n";

À l'exécution ça donne ça :

Plus d'information ici sur les regexp : http://perldoc.perl.org/perlre.html
Et pour le hâchage %ENV : http://perldoc.perl.org/perlvar.html (chercher %ENV dans la page)

use Config::File;
my $config_hash = Config::File::read_config_file($configuration_file);

J'connaissais pas mais, en même temps, j'ai pas ce module d'installé, et c'est la croix et la bannière pour ajouter un module PERL chez nous (sécurité, tests, etc)

Mais ça a l'air pas mal du tout