서브 루틴을 다른 서브 루틴의 매개 변수로 전달하는 방법

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