펄 테스트 나는 서브 루틴의 이름을 한 경우 상징적 인 함수 이름이

Question

을 존재하는 경우는, 내가 $의 FN에 명명 된 서브 루틴이 정의 된 테스트합니까 어떻게

$type = 'Circle'; 
$fn = 'My'.$type.'Renderer'; 

말?

Answer 1

1. PACKAGE->can($fn)이며, 기본값은 패키지 main입니다. 존재하는 경우

can

defined &{$fn}

또한이 기능을 사용하면 코드의 참조를 반환합니다.

Answer 2

can 메서드를 사용하고 싶은 유혹을받을 수 있지만 잘못되었으므로 상속을 받으면 오탐이 발생할 수 있습니다. exists을 사용하려고합니다.

my $name = ...; 
my @args = ...; 
die("$name doesn't exist\n") if !exists(&$name); 
(\&$name)->(@args); 

$name->(@args)으로 충분할 것이다. 이상한 구문은 엄격한 것을 우회합니다.