Bonjour à tous,
 
Question simple pour un débutant en Perl.
 
J'essais à partir d'un script principal (main.pl) d'appeler un script d'environnement (SetEnv.pl). Mon problème c'est que mes variables d'environnement définit dans SetEnv.pl ne sont pas visible dans mon script principal.
 
Main.pl
`perl "SetEnv.pl"`;
 
SetEnv.pl
$ENV{'ENCRYPT_PATH'}="E:\Code\S5_2\Script\Encrypt";
 
Quelqu'un peut m'aider je n'arrive pas à trouver.
Merci

Ça n'a rien a voir avec perl, cela, c'est juste une question de shell.
Sous Windows, vous pouvez utiliser le module Win32::Env
A+,
 

Pour expliquer le comportement constaté rapidement : quand tu appelles une commande avec les backquotes (alt.gr 7), tu crées un processus fils. Ici, ce processus fils est un script perl qui modifie les variables d'environnement, mais ces modifications ne seront appliquées que pour CE processus fils, et SES fils à lui.
Une fois l'appel terminé, le processus fils en question est détruit. Quant au processus père, il n'a jamais vu aucun changement de variable d'environnement. Nada, que dalle, zilch.

Conclusion : tu ne pourras jamais modifier les variables d'environnement en appelant une autre commande perl de cette manière. Le plus simple : crée un petit module (ou passe par Win32::Env comme le suggère gilou, je ne connais pas ce module )

C'est un petit module tout simple, la doc en est ici: http://search.cpan.org/~ROWAA/Win3 [...] n32/Env.pm
A+,

Résolut
Merci mais j'ai trouvé un moyen de contourner ce problème.
 
Fils SetEnv.pl
print("ENCRYPT_PASSWORD dnBtY3VzdG0=\n" );
 
Père Main.pl
chomp( my @Cmds = `perl "SetEnv.pl"` );
foreach my $Cmds(@Cmds) {  
   my @ListArg = split(/ /,$Cmds);
   $ENV{$ListArg[0]}="$ListArg[1]";
}
 
C'est pas ce qui a de plus sexy mais sa me suffit amplement.
Je vais quand même jeter un oeil sur le Win32::Env mais comme mes scripts sont utilisés sur Windows et sur Unix...

Pour unix, il y a le module Env::C
Et tu peux écrire du code dépendant de l'OS en utilisant la variable $^O qui vaut toujours MSWin32 sous Windows
 
Donc ça pourrait commencer par
 
if ($^O eq 'MSWin32') {
use Win32::Env;
.....
} else {
use Env::C;
....
}
 
A+,