Как передать подпрограмму в качестве параметра в другую подпрограмму

Question

Я хочу передать подпрограмму в качестве параметра в другую подпрограмму.

Подпрограмма question должна передаваться в качестве параметра подпрограмме answer? Как я могу это сделать с помощью Perl?

question(); 

sub question { 
    print "question the term"; 
    return(); 
} 

sub answer() { 
    print "subroutine question is used as parameters"; 
    return(); 
} 

Answer 1

Вы можете воспользоваться подпрограммой ссылки, используя \&subname синтаксис, а затем, вы можете легко передать его в другую подпрограмму в качестве аргументов как скаляр. Это подтверждено в perlsub и perlref. Позже вы можете разыменовать его, используя Arrow operator(->).

sub question { 
    print "question the term"; 
    return 1; 
} 

my $question_subref = \&question; 
answer($question_subref); 

sub answer { 
    my $question_subref = shift; 
    print "subroutine question is used as parameters"; 
    # call it using arrow operator if needed 
    $question_subref ->(); 
    return 1; 
} 

Или вы можете создать анонимную подпрограмму, не называя ее. Это может привести к интересному случаю closures

my $question = sub { 
         print "question the term"; 
         return 1; 
        }; 
answer($question); 

# you can call it using arrow operator later. 
$question ->();