perl - 检查Perl中是否存在子例程

Question

我想在调用子程序之前检查它是否存在。例如:

use warnings;
use strict;

my @names=qw (A B);

for (@names) {
  my $sub=\&{"print$_"};
  if (exists &{$sub}) {
    &$sub();
  }
}

sub printA {
  print "hello A\n";
}

但是，此代码不起作用。它给出了错误:

Undefined subroutine &main::printB

我知道我可以使用 eval，

for (@names) {
  my $sub=\&{"print$_"};
  eval {
    &$sub();
  };
  if ($@) {
    print "$_ does not exist..\n";
  }
}

很好，但是很高兴知道为什么第一个代码不起作用？

Answer 1

您正在尝试引用之前，知道该子项是否存在。首先使用对exists的调用中的子例程的名称进行检查。

use strict;
use warnings;

foreach (qw(A B)) {
    my $name = 'print' . $_;
    if (exists &{$name}) {
        my $s = \&{$name};
        $s->();
    }
}

sub printA {
    print "hello A"
}