“严格引用”时不能使用字符串作为数组引用

Question

我正在尝试取消引用一个数组，该数组是数组中列表元素的值哈希，以便我可以操作和存储它。

代码示例如下：

use strict;
use warnings;

my @array = qw(one two three four);
my @objects;

$objects[0]{"name"}="somestring";
$objects[0]{"value"}=@array;

print $objects[0]{"name"} . ": " . $objects[0]{"value"}[0];

print "\n";

当我尝试运行时，我得到：

不能使用字符串（“4”）作为数组引用，而“严格引用”在 listarray.pl 第 11 行。

有没有办法做我想做的事（并使用 foreach 迭代内部和外部数组）？

Answer 1

您应该将数组存储为参考：

$objects[0]{"value"} = \@array;

在您的代码中，@array 是在标量上下文中评估的，它返回数组中元素的数量 (4)。