Discussion :

[Katachana]

Bonjour,


J'aimerais savoir comment incorporer des commandes SHELL dans du perl.

J'ai essayé comme ceci sans résultat :

Code :

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

1
2
3
4
5
use Shell qw(export);
my $exp1 = export "ORACLE_HOME=/u01/app/oracle/product/10.2.0/db_1";
print $exp1;
my $exp2 = export ("LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$ORACLE_HOME/lib");
print $exp2;

Merci beaucoup d'avance!

[iblis]

Bonjour.

Extrait de perldoc shell :

This package is included as a show case, illustrating a few Perl features. It shouldn't be used for production programs.

Utilise plutôt qx (ou les back-quotes, c'est pareil) ou system().

D'un autre côté je ne suis pas sûr que cela soit le bon moyen de modifier des variables d'environnement (en fait, cela m'étonnerait que ça marche).

Modifie plutôt %ENV.

Code :

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

$ENV{PATH} = $ENV{PATH} . '/home/me/scripts';

Le seul truc, c'est que le changement n'est probablement pas permanent (valable en dehors du script). Il me semble que le sujet a déjà été abordé sur le forum.

[Katachana]

Modifie plutôt %ENV.

Code :

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

$ENV{PATH} = $ENV{PATH} . '/home/me/scripts';

Le seul truc, c'est que le changement n'est probablement pas permanent (valable en dehors du script). Il me semble que le sujet a déjà été abordé sur le forum.

Ca m'a l'air pas mal du tout pour ce que je soubaite faire => définir les varaibles d'environnement a chaque connexion ssh, je n'ai pas besoin que cela soit permanent.

Par contre j'ai du mal a voir comment l'insérer dans mon code perl ?

[iblis]

Par contre j'ai du mal a voir comment l'insérer dans mon code perl ?

Tu peux l'insérer tel quel.

%ENV est défini et contient les variables d'environnement d'exécution de ton script. Pour t'en rendre compte fait un

Code :

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

print map {"$_ -> $ENV{$_}\n"} sort keys %ENV

[Katachana]

Merci beaucoup , ca marche tres bien , mais j'ai toujours un bug ....

je m'explique :
lorsque j'execute cette commande Shell :

Code :

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

1
2
export ORACLE_HOME=/u01/app/oracle/product/10.2.0/db_1
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$ORACLE_HOME/lib

mon script perl marche bien.

Par contre lorsque que j'insere dans mon perl l'action ci dessus, pour atomatiser le processus, les variable d'environnement prennent bien le bon path, mais j'ai toujours un probleme.....

Code :

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

1
2
$ENV{ORACLE_HOME}="/u01/app/oracle/product/10.2.0/db_1";
$ENV{LD_LIBRARY_PATH}=$ENV{LD_LIBRARY_PATH}.":/u01/app/oracle/product/10.2.0/db_1/lib";

Le fait de faire un export en SHELL entraine il plus d'action que le script perl ci dessus ??


Merci d'avance!

[iblis]

[Début idée bête]
Peut être utilises-tu un module qui a déjà lu les variables d'environnement au moment où tu changes %ENV. (DBI ?)
Si c'est le cas, il doit y avoir un moyen mais lequel...
[Fin idée tout court]