perl - 调用 perl 匿名子程序，其引用保存在散列中

Question

我如何调用其引用在散列中维护的 perl 匿名子例程？

这是代码

#!/usr/bin/perl -W

use strict;
use warnings 'FATAL';
use diagnostics;
use utf8;


sub fn {
  my $href = $_[0];

  my %h = %{ $href };

  print %h;

  my $cref = $h{'p'};

  &$cref();
}


fn p => sub { print "inside anon function\n" };


1;

感谢您的宝贵时间。

Answer 1

您的子程序希望传递哈希引用，但您没有传递哈希引用。您传递一个字符串 (p) 和一个代码引用。那是因为

fn p => sub { print "inside anon function\n" };

与

相同

fn "p", sub { print "inside anon function\n" };

修复:

sub fn {
   my %h = @_;
   my $cref = $h{p};
   $cref->();
}

fn p => sub { print "inside anon function\n" };

这会在 sub 内部构建哈希。如果您想在外部构建哈希并传递对它的引用，它看起来像这样:

sub fn {
   my $href = $_[0];
   my $cref = $href->{p};
   $cref->();
}

fn { p => sub { print "inside anon function\n" } };

我避免制作无用的哈希副本(my %h = %{ $href };)。

---

&$cref()(但不是 &$cref)也可以。我只是更喜欢箭头符号。