如何将perl assc数组指向简单数组并推送新值？

Question

这是概念：

%aa = (
  'allphotos' => {}
);

$newkey = 'photogroupone';
$newphotoone = 'dogs at play';
$newphototwo = 'cats at play';

push $aa{'allphotos'}{$newkey}, $newphotoone;
push $aa{'allphotos'}{$newkey}, $newphototwo;

Perl 5.24

他们希望发布其他文字。说什么。

Answer 1

关闭。第一个参数必须是一个数组。

push @{ $aa{'allphotos'}{$newkey} }, $newphotoone;
push @{ $aa{'allphotos'}{$newkey} }, $newphototwo;

或者只是

push @{ $aa{'allphotos'}{$newkey} }, $newphotoone, $newphototwo;