perl test如果存在符号函数名称

Question

如果我编写子程序名称，请说

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

如何测试$ fn中命名的子程序是否已定义？

Answer 1

您可能想要使用can方法，但这是错误的，它可能导致误报，因为它服从继承。您想使用exists。

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

没有严格的话，

$name->(@args)就足够了。奇怪的语法绕过严格。

Answer 2

1. PACKAGE->can($fn)，PACKAGE默认为main。
2. defined &{$fn}

can也会返回对此函数的CODE引用（如果存在）。