En Perl, ¿cómo paso una función como argumento de otra función?

Question

me escribió lo siguiente Perl Clase:

package Menu; 
use strict; 

my @MENU_ITEMS; 
my $HEADER = "Pick one of the options below\n"; 
my $INPUT_REQUEST = "Type your selection: "; 

sub new { 
    my $self = {}; 
    $self->{ITEM} = undef; 
    $self->{HEADER} = undef; 
    $self->{INPUT_REQUEST} = undef; 
    bless($self); 
    return $self; 
} 

sub setHeader { 
    my $self = shift; 
    if(@_) { $self->{HEADER} = shift } 
    $HEADER = $self->{HEADER}."\n"; 
} 

sub setInputRequest { 
    my $self = shift; 
    if(@_) { $self->{INPUT_REQUEST} = shift } 
    $INPUT_REQUEST = $self->{INPUT_REQUEST}." "; 
} 

sub addItem { 
    my $self = shift; 
    if(@_) { $self->{ITEM} = shift } 
    push(@MENU_ITEMS, $self->{ITEM}); 
    } 

sub getMenu { 
    my $formatted_menu .= $HEADER; 
    my $it=1; 
    foreach(@MENU_ITEMS) { 
     $formatted_menu.=$it.". ".$_."\n"; 
     $it++ 
     } 
    $formatted_menu.=$INPUT_REQUEST; 
    return $formatted_menu; 
} 
1; 

Si llamo el siguiente script Perl:

#!/usr/bin/perl 
use strict; 
use Menu; 

my $menu = Menu->new(); 
$menu->addItem("First Option"); 
$menu->addItem("Second Option"); 
print $menu->getMenu; 

que obtendrá el siguiente resultado:

Pick one of the options below 
1. First Option 
2. Second Option 
Type your selection: 

me gustaría para modificar una clase determinada de forma que pueda pasar un segundo argumento al método addItem()

algo como: $menu->addItem("First Option", &firstOptionFunction());

y si, y sólo si se seleccionaFirst Option, a continuación, se ejecuta $firstOptionFunction.

¿Hay alguna forma de lograr este comportamiento en Perl? Gracias!

Answer 1

Desea pass a reference a la subrutina.

$menu->addItem("First Option", \&firstOptionFunction); 

Y su método de addItem podría tener este aspecto:

sub addItem { ## your logic may vary 
    my ($self, $option, $code) = @_; 
    if ($option eq 'First Option') { 
     $code->(); 
    } 

    $self->{ITEM} = $option; 
    push @MENU_ITEMS, $option; 

    return; 
} 

Como se ha mencionado en los comentarios, es posible que desee dejar pasar la subrutina como referencia, sino más bien almacenarla en otro lugar. Algo como esto podría funcionar:

sub new { 
    my $class = shift; 
    my $self = bless {}, $class; 
    $self->{f_o_code} = \&firstOptionFunction; ## use a better name than f_o_code 
    return $self; 
} 

## add your other methods 

sub addItem { ## your logic may vary 
    my ($self, $option) = @_; 
    if ($option eq 'First Option') { 
     $self->{f_o_code}->(); 
    } 

    $self->{ITEM} = $option; 
    push @MENU_ITEMS, $option; 

    return; 
} ## call like $menu->addItem('First Option');