Array of arrays in a Perl object

Question

I'm trying to use an array of arrays in a Perl object and am still not getting how it works.

Here is the constructor:

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

And here is the part of code which inserts stuff into AoA:

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

I still can't find anything on the way to define an array of arrays in the constructor.

DVK · Accepted Answer · 2012-02-19 23:24:36Z

5

You don't need to define AoA in a constructor - merely the topmost arrayref. As far as the blessed hash is concerned, the AoA is merely an arrayref.

Your constructor is perfect.

To insert, you do 2 things:

# 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;

Or, if you are adding a known-index element, simply

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

Your problem with doing push @{$self->{AoA}}[$row] was that you dereferenced the array 1 level too early.

answered Feb 19, 2012 at 23:24

DVK

130k33 gold badges219 silver badges337 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

claf Over a year ago

Then what do I need to do besides pushing stuff in one of the arrays? Or am I pushing the wrong way?

DVK Over a year ago

@claferri - updated, please check if this answers. Sorry, saved too early

Collectives™ on Stack Overflow

Array of arrays in a Perl object

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related