Comme l'a dit peck, eval peut devenir une faille de sécurité. Si c'est un problème pour toi, je te propose d'utiliser Config::General
use Config::General;
my $conf = new Config::General(
-ConfigFile => "/chemin/vers/fichier/config",
-InterPolateEnv => 1
)
|| die "Bouh!";
my %config = $conf->getall;
print $config{VAR2}, "\n";
Si la sécurité ne t'inquiète pas, garde la solution eval qui est plus simple...
# Config::General
Posté par bob6 . En réponse au message Substitution de variables. Évalué à 1.
use Config::General; my $conf = new Config::General( -ConfigFile => "/chemin/vers/fichier/config", -InterPolateEnv => 1 ) || die "Bouh!"; my %config = $conf->getall; print $config{VAR2}, "\n";Si la sécurité ne t'inquiète pas, garde la solution eval qui est plus simple...