Perl 对象中的数组数组

Question

我正在尝试在 Perl 对象中使用数组的数组，但仍然不明白它是如何工作的。

这是构造函数：

sub new {
  my $class = shift;
  my $self = {};
  $self->{AoA} = [];
  bless($self, $class);
  return $self;
}

这是向 AoA 中插入内容的代码部分：

push (@{$self->{AoA}}[$row], $stuff);

我仍然找不到在构造函数中定义数组数组的任何内容。

Answer 1

您不需要在构造函数中定义 AoA - 只需要最顶层的 arrayref 即可。就受祝福的哈希而言，AoA 只是一个数组引用。

你的构造函数是完美的。

要插入，您需要做两件事：

# Make sure the row exists as an arrayref:
$self->{AoA}->[$row] ||= []; # initialize to empty array reference if not there.
# Add to existing row:
push @{ $self->{AoA}->[$row] }, $stuff;

或者，如果您要添加已知索引元素，只需

$self->{AoA}->[$row]->[$column] = $stuff;

执行 push @{$self->{AoA}}[$row] 的问题是您太早取消了数组 1 级别的引用。