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 ?