Paramétrer le nom du module à exécuter

Bonjour

Le programme principal cherche à appeler le module "bonjour" puis le module "bonsoir" via "jouerModule";

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w   use warnings; use strict; use moduleTest ;   &moduleTest::jouerModule(\&moduleTest::bonjour); &moduleTest::jouerModule(\&moduleTest::bonsoir);

---

Le moduleTest.pm contient les modules cités

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

use warnings; use strict; package moduleTest;   sub jouerModule{ my $mod = $_; print "Alors,"; $mod; }   sub bonjour{ print "bonjour\n"; }   sub bonsoir{ print "bonsoir\n"; }   1;

---

Et je n'obtiens que

Code:

---

Alors,Alors,

---

Je souhaite afficher

Code:

---

1 2	Alors,bonjour Alors,bonsoir

---

Je loupe qq chose sur le déréférencement du module à appeler, mais quoi ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

package moduleTest; use strict; use warnings;   sub jouerModule{ my $mod = shift; print "Alors,"; &$mod; # on ajoute le sigil & pour déréférencer }   sub bonjour{ print "bonjour\n"; }   sub bonsoir{ print "bonsoir\n"; }   1;

---

Par contre dans le main, pas besoin de mettre les sigils devant les appels de jouerModule:

Code:

---

1 2	moduleTest::jouerModule(\&moduleTest::bonjour); moduleTest::jouerModule(\&moduleTest::bonsoir);

---

Merci de ta réponse rapide.

J'avais encore un soucis :

Citation:

---

Use of uninitialized value in subroutine entry at moduleTest.pm line 8.
Can't use string ("") as a subroutine ref while "strict refs" in use at moduleTest.pm line 8.

---

Ce soucis est résolu de façon étrange :

Code:

---

1 2 3

package moduleTest; use strict; use warnings;

---

fonctionne désormais (copie de ton code), tandis que

Code:

---

1 2 3

use warnings; use strict; package moduleTest;

---

ne fonctionne pas (mon ancienne version).
Ça me laisse perplexe ! Je serai curieux de savoir pourquoi ?

Bonjour,

Un peu de lecture avec ce tutoriel sur la programmation objet.