Perl可以管理动态结构中的子程序吗？

Question

我有一套解析功能.其中一些我需要申请,具体取决于具体情况.我可以管理数组中的函数或Perl中的某些东西,例如JS中的函数吗？

Answer 1

是的,Perl是一种函数式语言,就像Javascript一样.基本上,你替换function用sub,并离开了函数原型.这是一个打印出来的三个子的示例:

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