Discussion :

[Franck T]

Bonjour

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

Code :

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

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 :

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

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 :

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

Alors,Alors,

Je souhaite afficher

Code :

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

1
2
Alors,bonjour
Alors,bonsoir

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

[CosmoKnacki]

Code :

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

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 :

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

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

[Franck T]

Merci de ta réponse rapide.

J'avais encore un soucis :

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 :

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

1
2
3
package moduleTest;
use strict;
use warnings;

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

Code :

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

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 ?

[djibril]

Bonjour,

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