Bonjour j'aimerai pouvoir retourner une valeur dans un fichier .pl
Voici mon code dans mon main.pl :

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
20
21
22
 
$answerPauseOrResume = 0;
 
sub actionPause 
{
	$answerPauseOrResume = 1;
 
}
 
sub actionResume {
 
	$answerPauseOrResume = 2;
 
 
}
 
 
sub getAnswerPauseOrResume {
 
	$answerPauseOrResume;
 
}
Voici mon code dans mon pause.pm :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
package pause;
 
my $answerPauseOrResume = *::answerPauseOrResume;
 
sub getAnswerPauseOrResume{
	print "answerPauseOrResume equals := $$answerPauseOrResume\n";
	$answerPauseOrResume;
}
1;
Le problème est qu'il m'affiche une erreur comme quoi j'initialise pas la valeur answerPauseOrResume lorsque je fais appel a la fonction getAnswerPauseOrResume comme ceci : pause::getAnswerPauseOrResume();

Merci