passer une fonction à une subroutine

Peut-on passer une subroutine à une subroutine.

j'ai une subroutine fct1 définie par:

Code:

---

1 2 3 4

sub fct1 { my ( $x ) = @_ ; return 2 * $x + 1 ; }

---

et une autre fct2 définie par:

Code:

---

1 2 3 4

sub fct2 { my ( $x ) = @_ ; return 3 * $y + 5 ; }

---

je souhaite obtenir

Code:

---

(fct1(a)+fct1(b))/2

---

et

Code:

---

(fct2(a)+fct2(b))/2

---

en appelant une foction moyenne

Code:

---

moyenne($a,$b,&fct1)

---

et

Code:

---

moyenne($a,$b,&fct2)

---

Est-ce possible et comment ?

Merci de votre aide.

Il faut jouer avec les références :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl use warnings; use strict;     print moyenne(2,3,\&fct1);   sub fct1 { my ( $x ) = @_ ; return 2 * $x + 1 ; }   sub fct2 { my ( $y ) = @_ ; return 3 * $y + 5 ; }   sub moyenne { my ($a, $b, $ref_fonction) = @_;   return ( $ref_fonction->($a) + $ref_fonction->($b) ) / 2; }

---

Voici une documentation sur les références et fermetures.

Merci beaucoup Djibril

;););)

Exactement dans le même esprit que la solution de Djibril, il est possible d'utiliser des "fermetures" (closure en anglais), c'est à dire des fonctions anonymes dont on récupère une référence :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use warnings; use strict;   my $fct1 = sub { my ( $x ) = @_ ; return 2 * $x + 1 ; }   my $fct2 = sub { my ( $y ) = @_ ; return 3 * $y + 5 ; }   sub moyenne { my ($a, $b, $ref_fonction) = @_;   return ( $ref_fonction->($a) + $ref_fonction->($b) ) / 2; }   print moyenne(2, 3, $fct1);

---