Question

作为能够接触其他散装成员的散装成员的成员,我谨有一位非例行成员。

例如

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

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

理想的做法是,这将产生“hello World”

http://www.ohchr.org。

我没有说明一项要求。

我应该能够这样做。

$obj{txt} = "goodbye";

之后,Bobj{print_hello}应当输出goodbye。

Answer 1

如果你想要打电话的守则能够更改散列中的信息,那么你需要参考回来。你要求:

use strict;
use warnings;

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

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

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

然而,它产生了一种奇怪的趋同——基本上是一个包含一些内在行为的数据结构。象/object到我看。或许,你们应当研究一下O-O办法,来开展你们的项目。

Answer 2

这项工作将:

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

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

Answer 3

近距离:

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

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

友情链接