Test d'un shell

Bonjour à tous,

Je dois écrire un programme qui test un shell qu'on à écrit,

Je me suis donc dit que je pourrais écrire pour chaque commande :

Code:

---

1 2	system ("ls");

---

Seulement j'ai peur que bash ne me rende pas la main.
Et comment faire pour changer de répertoire en utilsant mon bash et non opendir

Je sais pas si j'ai été très clair

Merci d'avance

Ta question porte plus sur la shell que sur perl.

Exemple avec bash :
Pour changer de répertoire avant de faire le "ls", tu écris ainsi :

Code:

---

system("cd toto ; ls");

---

Ou mieux encore :

Code:

---

system("cd toto && ls");

---

Dans le deuxième cas, la commande "ls" n'est exécutée que si le répertoire toto existe.

Cela dit, en utilisant la fonction perl "system", le retour de cette fonction ne te retourne QUE le status de retour du dernier processus lancé, et pas le contenu de la console.
Pour obtenir le contenu de la console (et plus le code de retour du dernier processus), il faut utiliser l'opérateur qx{} (ou ``).

En fait mon programme de test est en perl

En faisant quelque recherche j'ai trouvé qu'il existe le module Test, j'ai pas très bien compris comment ça marche

Ce que j'ai exactement besoin c'est de remplacer le diff dans le code suivant :

Code:

---

1 2 3

qx{ls > ls_test}; qx{diff ls_test ls_real > result_test_ls};

---

avoir un truc que je puisse mettre dans un if pour printer l'erreur en cas de difference entre les resultat de mon shell et ceux d'un shell standard

Regarde du coté du module Text::Diff dans ce cas.
Si tu n'utilises pas directement le retour du ls dans le script, tu peux utiliser indifféremment qx{} ou system.

D'ailleurs, je ne comprends pas tout ces appels system alors que tu peux tout faire en perl directement :ccool::ccool:

Il semble que ce soit pour tester le shell... ce qui pourrait expliquer l'usage de system.
Du coup, pourquoi ne pas tout tester en bash ?

Citation:

---

Envoyé par Philou67430

Il semble que ce soit pour tester le shell... ce qui pourrait expliquer l'usage de system.
Du coup, pourquoi ne pas tout tester en bash ?

---

En effet !

Pour la simple raison que c'est l'enoncer qu'il l'impose 8O

C'est donc un exercice de Perl pour tester les commandes shell :D . Bon... Ok ca sert de temps en temps d'exécuter des commandes shell depuis le Perl : il vaut mieux savoir comment l'on fait (surtout pour récupérer les sorties des commandes etc. comme expliqué par Djibril et Philou67430).