Comment parcourir/déréférencer un tableau de références de sous-programmes en Perl?

Question

J'essaie de comprendre comment itérer sur un ensemble de références de sous-programmes.

Quel est le problème avec cette syntaxe?

use strict; 
use warnings; 

sub yell { print "Ahh!\n"; } 
sub kick { print "Boot!\n"; } 
sub scream { print "Eeek!\n"; } 

my @routines = (\&yell, \&kick, \&scream); 
foreach my $routine_ref (@routines) { 
    my &routine = &{$routine_ref}; 
    &routine; 
} 

Merci d'avance!

Answer 1

Dans votre boucle foreach, ce qui suit est une erreur de syntaxe:

my &routine; 

votre variable $routine_ref a déjà une référence à la sous-routine, donc tout ce que vous besoin de faire à ce stade est l'appeler:

for my $routine_ref (@routines) { 
    &{$routine_ref}; 
} 

Comme toujours avec Perl, "Il y a plus d'une façon de le faire." Par exemple, si l'un de ces sous-routines ont pris des paramètres, vous pouvez les passer à l'intérieur des parenthèses comme ceci:

for my $routine_ref (@routines) { 
    $routine_ref->(); 
} 

Notez également que je l'ai utilisé for au lieu de foreach, qui est une meilleure pratice mis en avant par Damian Conway in Perl Best Practices.

Answer 2

Essayez ceci:

use strict; 
use warnings; 

sub yell { print "Ahh!\n"; } 
sub kick { print "Boot!\n"; } 
sub scream { print "Eeek!\n"; } 

my @routines = (\&yell, \&kick, \&scream); 
foreach my $routine_ref (@routines) { 
    &$routine_ref(); 
} 

Answer 3

foreach my $routine_ref (@routines) { 
     $routine_ref->(); 
}