perl - Perl 可以在动态结构中管理子程序吗？

Question

我有一组解析函数。其中一些我需要申请，具体取决于上下文。 我可以在数组或 Perl 中管理函数吗？像在 JS 中一样？

Answer 1

是的，Perl 和 Javascript 一样是一种函数式语言。基本上，您将 function 替换为 sub 并省略函数原型(prototype)。以下是三个打印输出内容的示例:

my @subs = (
  sub {print "Sub 1\n"},
  sub {my ($arg) = (@_, 2); print "Sub $arg\n"},
  \&my_function
);
sub my_function {
  print "Sub 3\n"
}

foreach my $function (@subs) {
  $function->("Argument");
}

打印

Sub 1
Sub Argument
Sub 3