Perl

[Perl] Passage de variable d'un script a un autre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Passage de variable d'un script a un autre

natwyn

liberer les kiwis

Salut,

j'essais d'ecrire un script generique qui configure les variables d'environnement du script passé en argument.

Pour ce faire j'ai lu qu'en modifiant le hash special %ENV, c'etait possible, mais ca marche pas:

1° script: start.pl

Code :

# script initialisant l'environnement
### modules ###
use File::Spec;
$cftexscript = "C:\\Documentations\\CFT\\INDUS_PERL";
$ENV{'cftenvoi'} = "G:\\cft00\\envoi";
# -------------------------------------------
# Lancement de la ligne de commande
# -------------------------------------------
if (not defined $ARGV[0]){
# Si pas d'arguments, on affiche les variables d'environnement
while(($clef,$valeur) = each %ENV){
print "$clef=$valeur \n";
}
}else{
# sinon, on lance le script passé en argument
my $nom_script = File::Spec->catfile("$cftexscript", "@ARGV" );
exec "$nom_script";

2° script: test.pl

Code :

#!/usr/bin/perl
print "cftenvoi= $cftenvoi\n";

quand j'execute: start.pl test.pl

la variable $cftenvoi affichée par test.pl est vide, donc l'environnement n'est pas transmis

comment kifofaire plz ??? :heink:

---------------
Les kiwis c'est bon! Mangez-en

Publicité

pospos

les variables d'environnement sons accessible avec $ENV{}, donc tu dois faire:

print $ENV{'cftenvoi'}

(et puis rajoute use strict; en haut de tes scripts, ca mettra tout de suit een evidence les problemes)

natwyn

liberer les kiwis

j'ai essayé et ca marche pas.

Dans le script test.pl, j'ai fais un

Code :

print "cftenvoi = $ENV{'cftenvoi'} \n" ;

et ma variable est toujours vide

---------------
Les kiwis c'est bon! Mangez-en

burgergold

5$? va chez l'diable!

faut aps faire un export ou un truc du genre?

natwyn

liberer les kiwis

en shell oui, mais la j'ai rien qui y ressemble :??:

---------------
Les kiwis c'est bon! Mangez-en

burgergold

5$? va chez l'diable!

bin c'est le même principe

tu lances ton premier script dans un "shell perl"
tu déclare ta variable d'env
tu lance le 2e script dans un nouveau shell perl
pouf t'a les variables d'environnement par défaut d'un "shell perl"

perso jvois pas pk tu veux utiliser des variables d'environnements au lieu de les passer en paramètre au script que pour tes autres

natwyn

liberer les kiwis

ce que tu decris est exactement le code que j'ai ecris et qui marche pas

Je peux pas les asser en parametres car je prevois d'en initialiser un gros paquet, et que je veux pas m'amuser a recuperer les variables dans tout les scripts qui utiliseront le start.pl. :non:

De plus, j'ai deja des arguements qui sont passé au script start: il s'agit du script a lancé avec ses arguments.

---------------
Les kiwis c'est bon! Mangez-en

burgergold

5$? va chez l'diable!

natwyn a écrit :

ce que tu decris est exactement le code que j'ai ecris et qui marche pas

c'est ce que je dis, c'est possiblement logique que ca ne fonctionne pas pour cette raison

lorsque tu lances quelques choses dans un nouveau shell, si tu n'as pas exporté tes variables d'environnements, elle ne seront pas dans le nouveau shell

si tu trouves que c'est trop de cassage de tête pour les paramètres, utilise Getopt::Long (-option valeur) ou CGI (option=valeur)

natwyn

liberer les kiwis

je suis d'accord, mais je sais pas comment faire.

Surtout que dans mon bouquin O'Reilly, ils disent:

Citation :

Les nouveaux processus créés heriterontgénéralement de leur parent, des variables d'environnement, du repertoire de travail en cours, des flux d'entrées, de sortie et d'erreur standard...

alors ? comment faire pour passer des variable du process pere au process fils ?

---------------
Les kiwis c'est bon! Mangez-en

natwyn

liberer les kiwis

J'AI TROUVE !!!

dans le code que j'ai donné, je n'utilisais pas la fonction fork qui créé un process fils (donc avec transmission d'environnement). Ca ne peut pas marcher avec exec utilisé seul.

pour plus de simplicité, j'utilise maintenant la fonction system() qui créé directement un process fils a la place de exec().

mon script test.pl peut ensuite recuperer les variables dans %ENV.

merci de votre aide

---------------
Les kiwis c'est bon! Mangez-en

Publicité

matafan

Un processus ne peut pas modifier l'environnement de son parent. L'environnement est passe aux processus fils, c'est tout.

pospos

et n'importe quelle variable le serait egalement

FORUM HardWare.fr

Programmation

Perl

[Perl] Passage de variable d'un script a un autre

Sujets relatifs
[Recherche] Script php d'upload-effacer fichiers	Cherche un bon script simple pr newsletter
[Résolu] Passage de "paramêtres" entre pages	Script de News
tester le contenu d'une variable	Trouver une page toute faite, un script ? Newbie inside !
[python] y'a moyen d'externaliser une variable ?	Pb de portée de variable sur fichiers include
Recuperer le contenu d'un fichier en variable	Passage de variable à un script perl en console ?
Plus de sujets relatifs à : [Perl] Passage de variable d'un script a un autre

Page générée en 0.055 secondes