サブルーチンをパラメータとして別のサブルーチンに渡す方法

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