Perl et les commandes system

Question

Bonjour tout le monde,

Le problème est simple. J'utilise unix avec differents groupe de travail( j'ai les droits pour y acceder )
ex:
pole2
cpioc
...
qd je change de groupe avec dtterm via la commande newgrp nomgroupe ça marche parfaitement.
Mais qd je change de groupe via un programme perl en utilisant la ligne de commande.
`newgrp nomgroupe` ou system "newgrp nomgroupe" ou encore exec "newgrp nomgroupe" il n'y a pas d'erreur mais ça ne marche pas.
Si quelqu'un pouvait me donner plus de renseignement sur le comment cela fonctionne et surtout sur le comment faire pour que ça fonctionne.
Merci d'avance car c'est très urgent
Karim

dubcek · Accepted Answer

on ne reste dans le groupe pole2 que entre newgrp pole2<< XX XX je ne suis plus pole2 si le prog perl doit être pole2, il faut faire newgrp pole2<< XX < prog Perl> XX

dubcek · Answer

hello
newgrp group << XX
cmd
cmd
XX

koa0 · Answer

Merci pour la reponse si rapide.
Je debute en Perl et si tu pouvez m'en dire plus je t'en remercierai
Karim

dubcek · Answer

ca c'est ce qu'il faut faire pour exécuter des commandes en newgrp dans un shell Unix. Comment exécutes-tu la commande en perl ?
essaye system("newgrp group <<XX ; cmd ; cmd\ 
XX");

dubcek · Answer

cela redirige les commandes jusqu'a XX en début de ligne.
tu peux tester en shell

newgrp group ; id -a ; echo > fichier1 ; ls -l fichier1
newgrp group << XX
id -a ; echo > fichier2 ; ls -l fichier2
XX

dubcek · Answer

le plus simple, tu mets tes commandes newgrp ... dans un script, tu le rends exécutable
chmod u+x script
et depuis perl
system("script");

dubcek · Answer

et comme ca
#!/bin/ksh
echo "debut de programme"
newgrp pole2 <<XX
echo "fin de programme"
XX

koa0 · Answer

Comme tu m'as beaucoup aidé je reviens vers toi en esperant ne pas trop t'ennuyer.
Je suis en train de sourcer un environnement en procedant de la façon suivante:
#!/bin/ksh

echo "appel du programme essai"
# Environnement de marcel
newgrp pole2<<XX

. /home/pole2/atelier_pole2_gdc_a380<<YY
echo "---------------------------------------------------------------"
echo "Atelier marcel => ${Loc_marcel}"
echo "Espace de developpement => ${ESPACE_DEV}"
echo "---------------------------------------------------------------"
echo "fin du programme essai"
XX
YY

resultat:
il bloque à la ligne qd je lance le script via perl
. /home/pole2/atelier_pole2_gdc_a380<<YY

dubcek · Answer

peut être: newgrp pole2< ${Loc_marcel}" echo "Espace de developpement => ${ESPACE_DEV}" echo "---------------------------------------------------------------" echo "fin du programme essai" YY XX le << YY est-il nécessaire ?

dubcek · Answer

le . source bien
les variables sont définies dans /home/pole2/atelier_pole2_gdc_a380 ?
sont-elles exportées ?
dans /home/pole2 pole2 est un répertoire, dans newgrp pole2 pole2 est un groupe, 2 choses différentes

dubcek · Answer

newgrp pole2 va mettre le shell dans le groupe pole2, ce qui va permettre de créer des fichiers appartenant au groupe pole2. pour le reste, comme le choix du répertoire, il n'y a rien d'automatique, c'est au script d'aller explicitement dans /home/pole2

koa0 · Answer

Bon j'ai essayé. En fait le probleme vient toujours de fait qu'on ne change pas de groupe. J'essai de changer de groupe et j'affiche l'id mais on est toujours sur l'ancien groupe.
Je m'explique:
on est sous le groupe cpioc
debut du programme perl
...
system ("essai");

debut du programme essai pour se mettre sous le groupe pole2
#!/bin/ksh
echo "appel du programme essai"
# Definition de la version Marcel a utiliser
export MARCEL_ENV="/home/opt/MARCEL/0000750_AA/MARCEL_ENV/marcel_env"
# Environnement de marcel
newgrp pole2<<"$grp"

${grp}
fin du programme essai
On revient au programme perl 
my $id = `id`
print "$id";
et là je reste sur le groupe cpioc. Je comprend pas
Karim

Perl et les commandes system

12 réponses

Discussions similaires

Newsletters