Fonction en parametre de fonction perl [Résolu/Fermé]

Signaler
-
 koa0 -
Bonjour à tous,
j'ai un programme principal en .pl qui créé des boutons via tk. chaque fois que j'appuie sur un bouton j'aimerais appeler un fonction qui se trouve dans le .pl.
Je m'explique
programme principal.pl
...
IHM::creer_Bouton($p_sous_projets[$h_projet_principaux{$nom_onglet}]->{TAB_SOUS_VERSION}[$l],$env,"SkyBlue1",\&appui_sur_bouton())->grid(-column=>$j,-row=>$i);
...
sub appui_sur_bouton
{
print"appui sur bouton\n";
}
....
dans le module.pm
...
sub creer_Bouton
{
my ($Namebut,$pointeur,$couleurfond,\$fonction) = @_;

$pointeur->Button (
-text => $Namebut,
-command => \$fonction,
-height =>1,
-background =>$couleurfond,
)->pack();
}
....
L'appel ne marche pas de cette façon.
Quelqu'un à t'il une idée?
Merci d'avance
Désolé pour la question car je viens de faire des test et c'est bon. Il fallait juste enlever dans la fonction créer_bouton le "\$fonction" et mettre juste $fonction
my ($Namebut,$pointeur,$couleurfond,$fonction) = @_;
Merci qd même
Karim