Bonjour,

J'ai besoin de faire un script perl qui lance des tests, script qui est appelé en batch avec une option qui contient le nom du test à lancer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
> testeur.pl -test_name TEST_01
Dans mon fichier testeur.pl, je fais une routine par test, et elle s'exécute donc en fonction de celle qui est appellée dans la ligne de commande.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
sub TEST_01 { print ("TEST_01"); }
sub TEST_02 { print ("TEST_02"); }
sub TEST_03 { print ("TEST_03"); }
etc.

Comment faire pour sélectionner le bon test en fonction de l'option ?
je peux faire quelque chose du genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
if $test_name eq 'TEST_01' { TEST_01(); }
Mais si j'ai 300 tests possibles, je ne vais pas écrire 300 fois ma ligne en changeant le numéro du test...

J'ai essayé un seul if avec l'utilisation d'une variable pour appeler la routine de test:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
if ($test_name eq 'TEST_01') { $test_name(); }
mais ça ne marche pas ...

Est-ce qu'il n'y a pas plus simple ?
Merci de votre aide
xdebr