[perl] Perl 5의 기능 프로토 타입이 왜 나쁜가요?

문제는 Perl의 함수 프로토 타입이 사람들이 생각하는대로하지 않는다는 것입니다. 그들의 목적은 Perl의 내장 함수처럼 구문 분석 될 함수를 작성할 수 있도록하는 것입니다.

우선 메서드 호출은 프로토 타입을 완전히 무시합니다. OO 프로그래밍을 수행하는 경우 메서드에 어떤 프로토 타입이 있는지는 중요하지 않습니다. (따라서 프로토 타입이 없어야합니다.)

둘째, 프로토 타입은 엄격하게 시행되지 않습니다. 로 서브 루틴을 호출 &function(...)하면 프로토 타입이 무시됩니다. 따라서 실제로 유형 안전을 제공하지 않습니다.

셋째, 원거리에서 으스스한 행동입니다. (특히 $기본 목록 컨텍스트 대신 해당 매개 변수가 스칼라 컨텍스트에서 평가되도록하는 프로토 타입입니다.)

특히 배열에서 매개 변수를 전달하기 어렵게 만듭니다. 예를 들면 :

my @array = qw(a b c);

foo(@array);
foo(@array[0..1]);
foo($array[0], $array[1], $array[2]);

sub foo ($;$$) { print "@_\n" }

foo(@array);
foo(@array[0..1]);
foo($array[0], $array[1], $array[2]);

인쇄물:

a b c
a b
a b c
3
b
a b c

3 개의 경고 main::foo() called too early to check prototype(경고가 활성화 된 경우) 와 함께 . 문제는 스칼라 컨텍스트에서 평가 된 배열 (또는 배열 슬라이스)이 배열의 길이를 반환한다는 것입니다.

내장 된 것처럼 작동하는 함수를 작성해야하는 경우 프로토 타입을 사용하십시오. 그렇지 않으면 프로토 타입을 사용하지 마십시오.

참고 : Perl 6은 완전히 개편되고 매우 유용한 프로토 타입이 될 것입니다. 이 답변은 Perl 5에만 적용됩니다.

답변

sub some_sub ($$) { ... }

use v5.20;
use feature qw(signatures);
no warnings qw(experimental::signatures);

animals( 'Buster', 'Nikki', 'Godzilla' );

sub animals ($cat, $dog, $lizard = 'Default reptile') { 
    say "The cat is $cat";
    say "The dog is $dog";
    say "The lizard is $lizard";
    }