Trong Perl, làm cách nào để chuyển một hàm làm đối số của một hàm khác?

Question

tôi viết Lớp Perl sau:

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; 

Nếu tôi gọi là kịch bản perl sau:

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

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

tôi sẽ nhận được kết quả như sau:

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

Tôi muốn để sửa đổi lớp đã cho theo cách mà tôi có thể chuyển đối số thứ hai cho phương thức addItem()

cái gì đó như: $menu->addItem("First Option", &firstOptionFunction());

và khi và chỉ khiFirst Option được chọn, sau đó $firstOptionFunction được thực thi.

Có cách nào để đạt được hành vi như vậy trong Perl không? Cảm ơn!

Answer 1

Bạn muốn pass a reference cho chương trình con.

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

Và phương pháp addItem của bạn có thể trông như thế này:

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

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

    return; 
} 

Như bạn đề cập trong các ý kiến, bạn có thể muốn không vượt qua được chương trình con như một tài liệu tham khảo, nhưng thay vì lưu nó ở một nơi khác. Một cái gì đó như thế này có thể hoạt động:

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');