inserer commande SHELL

Bonjour,


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

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

Code:

---

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!

Bonjour.

Extrait de perldoc shell :

Citation:

---

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:

---

$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.

Citation:

---

Envoyé par iblis

Modifie plutôt %ENV.

Code:

---

$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 ?

Citation:

---

Envoyé par Katachana

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:

---

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

---

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

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

Code:

---

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:

---

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!

[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]

c'est très possible je fais appel a DBI.

Mais j'ai placé "use DBI;" après avoir initialiser les variables d'environnement dans mon code.

Normalement ca devrait être bon non ?

Dans mon script PERL :

Code:

---

1 2 3 4 5 6 7

Definition des variables d'environnement $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'; foreach $key (sort(keys %ENV)) { print "$key = $ENV{$key}<BR>\n"; } print "</BODY>";

---

Cela m'affiche bien les modifications que j'ai affecté au variables d'environnements.
Par contre en tapant ensuite la commande "env" dans la console, les informations que j'ai affecté aux variables d'environnements ont disparu ou non mémorisé??

Quelqu'un aurait des informations a ce sujet?

Merci :roll:

Citation:

---

Par contre en tapant ensuite la commande "env" dans la console, les informations que j'ai affecté aux variables d'environnements ont disparu ou non mémorisé??

---

Comme je l'ai dit plus haut, les modifications apportées aux variables d'environnement meurent avec le processus (ton script perl).

Mais elle devraient bien etre prise e compte le temps du script non ?


Une idée : crée un srcipt SHELL avec les lignes "EXPORT" et le lancer dans le script PERL ??

Tes affectations de variables sont prises en compte à l'exécution mais le chargement de modules de fait à la compilation. D'où le problème à mon avis.

Essaie de mettre des affectation dans un BEGIN. Et peut être aussi de transmettre la variable au module (je ne suis pas trop sûr de la syntaxe).

Code:

---

1 2	BEGIN { $ENV{ORACLE_HOME}='/u01/app/oracle/product/10.2.0/db_1'; } use DBI qq($ENV{ORACLE_HOME});

---

Citation:

---

Envoyé par iblis

Tes affectations de variables sont prises en compte à l'exécution mais le chargement de modules de fait à la compilation. D'où le problème à mon avis.

Essaie de mettre des affectation dans un BEGIN. Et peut être aussi de transmettre la variable au module (je ne suis pas trop sûr de la syntaxe).

---

Ton intuition est bonne, c'est effectivement le problème, il faut utiliser un bloc BEGIN avant le use DBI (et inutile d'essayer de "transmettre" ces variables, l'environnement est commun à tout le processus, il ne s'arrête pas aux frontière de package).

--
Jedaï

Merci pour toutes ces informations ;)

Finalement, j'ai modifier le fichier .bashrc dans lequel j'ai mis les "export" et ca marche très bien.