Discussion :

[tourdetour]

Bonjour, je suis en train de créer un petit script en Perl et j'ai un problème.
J'ai créé une classe class.pm que j'importe dans un script test.pl.
La classe class.pm contient un constructeur ainsi qu'une fonction test.
Un objet de class.pm est déclaré dans test.pl.
Dans test.pl, il y a une fonction bonjour qui affiche "Hello world".

J'aimerais, en appelant que la fonction test de l'objet class.pm présent dans test.pl appelle la fonction bonjour de test.pl.
Un exemple avec du code sera plus clair :

test.pl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#test.pl
use class;
 
sub bonjour
{
print("Hello world !");
}
 
$maclass=class->new();
 
$maclass->test();

class.pm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
package test;
 
sub new()
{
$self = shift;
return $self;
}
 
sub test()
{
#appelle la fonction bonjour de test.pl pour afficher "Hello world !"
}

Merci d'avance pour vos réponses.

PS : Je ne suis pas sûr d'être dans la bonne partie, déplacez si besoin.

[Lolo78]

Tu peux passer une référence à ta fonction (cela s'appelle une fonction de rappel ou callback function). Par exemple:

Programme principal:

Code :

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

1
2
3
4
5
use mon_package qw /test_code_ref/;;
 
my $print_code_ref = sub { print "Hello word\n" };
# $print_code_ref  est maintenant une référence à la fonction anonyme définie ci-dessus
test_code_ref($print_code_ref);

Package:

Code :

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

1
2
3
4
5
6
7
8
 
package mon_package;
# export, etc.
 
sub test_code_ref {
     my $code_ref = shift;
     $code_ref->();     # appelle la fonction reçue en paramètre et imprime "Hello word"
}

Une autre manière est de créer une fonction avec un nom de passer une référence à cette fonction.

Dans le programme principal, au lieu de:

Code :

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

1
2
 
my $print_code_ref = sub { print "Hello word\n" };

tu peux faire comme suit:

Code :

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

1
2
3
 
sub print_hello { print "Hello word\n" };
my $print_code_ref = \&print_hello;

Il y a d'autres moyens syntaxiques de faire la même chose, mais ça te donne déjà une idée.

Je donne de nombreux exemples de ces constructions dans la seconde partie de mon tuto sur la programmation fonctionnelle en Perl.

[tourdetour]

Merci beaucoup, c'est exactement ce qu'il me fallait !

[vidici]

zut , j'ai été pris de court
mais juste pour le plaisir de montrer que je lit les écrits de lolo, et puis parce que maintenant c'est fait, j'ai traduit en moose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use Classe;
 
sub bonjour
{
        print("Hello world !");
}
 
my $ref = \&bonjour;
 
my $maclass=Classe->new();
 
$maclass->test($ref);
exit 0

et la classe

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
 
package Classe;
use Moose;
 
 
sub test()
{
        my $self = shift;
        my $fonction = shift;
        $fonction->();
        #appelle la fonction bonjour de test.pl pour afficher "Hello world !"
        }
###############################################################
no Moose;
__PACKAGE__->meta->make_immutable;

voilou

[Lolo78]

mais juste pour le plaisir de montrer que je lit les écrits de lolo

C'est bien.

Ça me rassure, j'ai au moins un lecteur.

[vidici]

rassures toi, c'est super. Même si c'est un peu ardu pour moi (je n'en suis qu'a mi page), ça ouvre une autre dimension.
merci