Discussion :

[minusette]

Bonjour à tous !

Je ne suis pas informaticienne et j'ai une belle énigme (du moins pour moi) à résoudre. J'espère que certains auront la clé !!!

Voilà mon problème : Je dois à partir d'un fichier perl lancer un fichier shell . Ce fichier shell doit lancer une application qui a besoin de sourcer le .cshrc. Ceci signifie donc que mon fichier shell doit être du C shell (csh). Or Perl ne veut pas exécuter de fichier csh... mais uniquement des fichier sh, qui ne peuvent pas sourcer le .cshrc...

Est-ce que quelqu'un a une idée ou une astuce pour me sortir de cet umbrogio, s'il vous plait ?

Et s'il vous plait, pas de réponses du style fais-le en php, parce que pour pusieurs raisons trop longues à expliquer ici, je ne peux utiliser que perl...

Merci beaucoup !!!!

[Jedai]

Et s'il vous plait, pas de réponses du style fais-le en php, parce que pour pusieurs raisons trop longues à expliquer ici, je ne peux utiliser que perl...

Tu t'attends à ce qu'on te réponde ça sur le forum Perl ?! Perl est plus puissant que PHP en général, et bien plus adapté à l'admin système.

Pour ton problème, il suffit d'appeler explicitement csh :

Code :

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

1
2
 
system("csh mon_script.sh blabla...");

--
Jedaï

[minusette]

Merci Jedaï... mais ça ne fonctionne pas !!!
Je ne sais pas pourquoi, mais à chaque fois que je lance une commande system, il ne se passe rien...
Pour lancer mon fichier sh, je suis "obligée" (du moins pour qu'il le fasse réellement) de passer par la commande open/close (avec la commande exec, il fait des choses mais affiche une page d'erreur... c'est pas terrible !).
De plus dans la ligne de commande
system("csh mon_script.sh blabla...");
si j'ai bien compris on transforme du sh en csh, or c'est l'inverse qu'il me faudrait... et je sais pas si c'est possible... Je ne me trompe pas en disant que perl ne gère pas le csh ?

Merci à tous !

[2Eurocents]

Je ne sais pas pourquoi, mais à chaque fois que je lance une commande system, il ne se passe rien...

Vraiment ?

Pour lancer mon fichier sh, je suis "obligée" (du moins pour qu'il le fasse réellement) de passer par la commande open/close (avec la commande exec, il fait des choses mais affiche une page d'erreur... c'est pas terrible !).

Essaie de faire des petits tests :
Crée un fichier csh.csh

Code :

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

1
2
3
#!/bin/csh
 
echo csh >> csh.txt

Puis, fais un

Code :

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

perl -e "system ('/bin/csh ./csh.csh');"

Si tu as, à la sortie, un fichier csh.txt qui contient csh (autant de fois que tu auras lancé la commande Perl), alors c'est que tu peux sans soucis exécuter des scripts csh.

De plus dans la ligne de commande
system("csh mon_script.sh blabla...");
si j'ai bien compris on transforme du sh en csh, or c'est l'inverse qu'il me faudrait... et je sais pas si c'est possible...

On ne transforme rien du tout ... on demande juste à csh d'interpréter un fichier qui s'appelle mon_script.sh. Ce fichier peut être un script sh, aussi bien que csh ... on ne peut le savoir qu'en en regardant le shebang (commentaire de la première ligne), ou en en étudiant la syntaxe.

Je ne me trompe pas en disant que perl ne gère pas le csh ?

Perl ne gère pas le csh Il ne gère que le perl

C'est pour cela qu'on demande au système d'exécuter le csh pour nous, avec la commande "system".

Bon courage pour la suite.

[minusette]

J'ai fais ce que tu m'as dit 2Eurocents
Crée un fichier csh.csh Code:

Code :

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

1
2
3
#!/bin/csh 
 
echo csh >> csh.txt

Puis, fais un Code:

Code :

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

perl -e "system ('/bin/csh ./csh.csh');"

Et je confirme que ca ne crée pas de fichier .txt...

Je crois bien que perl ne comprend pas : lire un fichier .csh....

Désolée de vous embêter....
D'autres idées ??????

Merci !

[minusette]

C'est pas que system() ne marche pas en fait...
C'est que je demande à system() d'appeler du csh que perl ne comprend pas ...

J'avoue que je suis à court d'imagination....

Je ne vois pas comment contourner le problème...

[Jedai]

Tu es bien sûr que csh est installé ? Si tu tapes "/bin/csh ./csh.csh" ça marche ? (Le problème ne provient absolument pas de Perl, qui comme on te l'a dit transmet juste au système la commande)

--
Jedaï

[minusette]

Bon, je crois que j'ai plus ou moins résolu mon problème !!!
Merci à 2eurocents et à Jédaï.
Pour info : OUI j'ai csh d'installé
En fait c'est grace au petit script de 2eurocents que j'ai réussi à y voir plus clair : Je pense très clairement que j'ai des problèmes de droits ou de config que mon serveur apache, car quand je teste en direct ces commandes dans une fenête Unix, tout fonctionne !!!! Ca ne marche pas quand je passe par mon serveur. Ce n'est donc apparemment pas un problème de PERL !

Merci à vous de m'avoir aidé et bonne continuation !