Perl,使用Hash的“闭包”

如果希望调用代码能够修改散列中的消息,则需要通过引用返回散列。这符合您的要求:

use strict;
use warnings;

sub self_expressing_hash {
    my %h;
    %h = (
        msg              => "hello",
        express_yourself => sub { print $h{msg}, "\n" },
    );
    return \%h;
}

my $h = self_expressing_hash();
$h->{express_yourself}->();

$h->{msg} = 'goodbye';
$h->{express_yourself}->();

然而,这是一个奇怪的混合物——本质上是一个包含一些内置行为的数据结构。听起来像是 对我来说。也许你应该为你的项目研究一种O-O方法。

这将起作用:

sub setup { 
    my %a = ( txt => "hello world" );
    $a{print_hello} = sub { print $a{txt} };
    return %a;
}

my %obj = setup();
$obj{print_hello}->();

sub setup {
  my %a = (
   txt => "hello world",
   print_hello => sub {
    print $a{txt};
  });
  return %a;
}

my %obj = setup();
$obj{print_hello}->();