Может кто-нибудь объяснить хеши в Perl?

Question

Основная функция:

my %hash = {'inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6}};
$object->State(0, %AMSValues);

Отправлено:

sub State
{
   my ($self, $state, %values) = @_;
   my $value = \%values;

Из того, что я знаю, один должен быть хешем, а другой - указателем, но ...

Не похоже, что картинка работает так,

$value = $value->{"HASH(0x52e0b6c)"}
%values = $values->{"HASH(0x52e0b6c)"}

Answer 1

use warnings; всегда.

Ваш:

my %hash = {'inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6}};

неверен;{} генерирует анонимную ссылку на хеш, а% hash получает один ключ (который содержит строковую ссылку на хэш) и значение undef.

Вы хотели:

my %hash = ('inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6});

До передачина подпрограммы идет, вы не можете передавать хэши;код, подобный показанному вами, сглаживает хэш в список, а затем повторно собирает хеш из @_, но это будет отдельная копия.Если вы действительно хотите использовать тот же хеш, вы должны вместо этого передать ссылку на хеш.