Массив массивов в объекте Perl

Question

Я пытаюсь использовать массив массивов в объекте Perl и до сих пор не понимаю, как это работает.

Вот конструктор:

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

А вот часть кода, который вставляет материал в ССХ:

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

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

Answer 1

Вам не нужно определять AoA в конструкторе - просто самый верхний массив. Что касается блаженного хэша, то AoA - это просто массив.

Ваш конструктор идеален.

Для вставки, вы делаете 2 вещи:

# 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 уровень слишком рано.