Discussion :

[proth]

re-Bonjour à tous,

C'est toujours le même développeur C qui s'essaie à du PERL qui vient demander de l'aide ...

J'essaie de jouer avec les pointeurs de fonctions.

Voici ce qui marche :

dans mon Fichier 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 ref_essai = \&DisplayHelp;
 &$ref_essai();
 
#... et plus loin dans le fichier...
 
sub DisplayHelp
{
 print "aide en ligne";
}

Ce qui ne marche pas :

dans mon Fichier 1 :

Code :

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

1
2
3
4
5
6
7
8
 
 
Fichier2::SetHelpRoutine(\&DisplayHelp);
 
sub DisplayHelp
{
 print "aide en ligne";
}

dans mon Fichier 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $ref_help_routine;
 
sub SetHelpRoutine
{
    $ref_help_routine = @_;
}
 
#...puis ici j'appelle la routine en faisant : 
&$ref_help_routine();

[/i]

Et à l'exécution j'ai l'erreur suivante : Undefined subroutine &main::1 called

Merci beaucoup encore une fois !

Pierre

[Jedai]

Tu fais un "require Fichier2.pl;" dans Fichier1 j'imagine ? Alors imagine ce qui se passe : tu exécute Fichier2 avant Fichier1, donc "&$ref_help_routine();" est effectué avant qu'une quelconque routine soit affecté à $ref_help_routine()... D'où l'erreur, probablement, à moins que ce ne soit tout à fait autre chose (tu ne fournis pas assez de détail pour qu'on en soit tout à fait sûr, ce qui est sûr c'est que ce que tu fais est incorrect, mais ce n'est peut-être pas la seule erreur)!

Je ne sais pas ce que tu cherches à faire, mais ce n'est sûrement pas ça ?

--
Jedaï

[proth]

Je voulais affecter un pointeur de fonction... et ça marche maintenant... j'ai un peu honte d'avouer... J'ai oublié les parenthèses lors de la récupération des paramètres d'entrée de ma routine !
$param = @_;

au lieu de

($param) = @_;

Du coup, je n'étais pas en contexte de liste et je récupérais le nombre d'arguments (1, d'ou l'erreur Unknow routine main::1) au lieux de l'adresse de la routine...

Encore désolé du dérangement