perl - 在 perl 中返回函数的关联数组

Question

是否可以创建返回函数的关联数组？
类似的东西

%a = ('first' => sub first { $x = @_; sprintf("(first %s)", $x); });

谢谢

Answer 1

这是可能的，但您可能想要 my ($x) = @_;而不是 $x = @_;和 删除函数名称 当您处理匿名函数时。

然后您可以将函数调用为 $a{first}->([arg])

my %a = ('first' => sub { my ($x) = @_; sprintf("(first %s)", $x); });