Test d'un shell

**shkmr** · 03/11/2009, 01h10

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 :

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

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

**Philou67430** · 03/11/2009, 09h38

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 :

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

system("cd toto ; ls");

Ou mieux encore :

Code :

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

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 ``).

**shkmr** · 03/11/2009, 15h08

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 :

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

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

**Philou67430** · 03/11/2009, 15h18

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.