Exécution d'un script shell sous perl

Bonjour,

Est ce que c'est possible d’exécuter un script SHELL sous un script PERL ??

Si oui s'il vous plait dites moi comment, je suis vraiment null en perl mais j'ai besoin de cette astuce et c'est urgent. J'ai fait beaucoup de recherches et j'ai trouvé la fonction eval et exec mais je ne suis pas arrivé à les mettre en place.

Merci beaucoup d'avance.

Bonjour,

la fonction exec met fin au programme Perl en cours et effectue l'appel à une fonction externe, qui peut être une commande système ou un shell. Le programme Perl est terminé et ne repartira pas.

La fonction system est probablement plus proche de ce que tu recherches. Elle lance la commande passée en paramètre et se mets en attente de la fin de l'exécution de cette commande. Elle renvoie le statut de fin d'exécution de la commande.

Les apostrophes inversées (backticks) ou qx// font la même chose mais récupèrent les données de sortie de la commande.

Exemple sous Unix: si tu veux lister les process en cours:

Code:

---

1 2 3 4

my @processes = ` ps -l | grep toto`; # @processes = qx/ ps -l | grep toto/; aurait le même effet foreach (@processes) { { # faire quelque chose avec les lignes décrivant différents process }

---

Pour bien apprendre Perl pense à lire ces cours et tutoriels : http://perl.developpez.com/cours/