perl的回调函数，谁能举个例子吗

Question

如题所述

Answer 1

以函数为参数在函数内部调用传进来的函数
sub oper {
return $_[2]->($_[0], $_[1]);
}
my %oper = (
  "add" => sub {$_[0] + $_[1]},
  "sub" => sub {$_[0] - $_[1]},
  );
print oper(1, 2, $oper{"add"}), "\n";
print oper(1, 2, $oper{"sub"}), "\n";