Perl, «замыкание» с помощью Hash

Question

Я хотел бы иметь подпрограмму как член хэша, который может иметь доступ к другим хеш-членам.

Например

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

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

В идеале это будет выход "привет мир"

EDIT

К сожалению, я не смог указать одно требование

я должен быть в состоянии сделать

$obj{txt} = "goodbye"; 

, а затем $ OBJ {print_hello} должен вывести goodbye

Answer 1

Если вы хотите, чтобы вызывающий код, чтобы иметь возможность модифицировать сообщение в хеше, вам нужно вернуть хеш по ссылке. Это делает то, что вы просили:

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 для вашего проекта.

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}->();