Using multi-dimensional array in Perl class

Question

I need to create a multi-dimensional array which will be passed to a class.

Here is sample code where I can reference the array elements outside of the class, but once I create a class and pass the multi-dimensional array, I'm not able to reference it inside of the class.

Output:

My Array Value = 3

Can't use string ("1") as an ARRAY ref while "strict refs" in use at test.pl line 18.

package TestClass;
use strict;

sub new
{
    my $class = shift;
    my $self =
    {
        _array => shift
    };
    bless $self, $class;   
    return $self;
}

sub print
{
    my ($self) = @_;
    print "TestClass variable = " . @{$self->{_array}->[0]}[1] . "\n";
}

my @my_array = ();
push(@my_array, [1,2]);
push(@my_array, [3,4]);

print "My Array Value = " . @{@my_array->[1]}[0] . "\n";

my $class = new TestClass(@my_array);

$class->print;

1;

rafl · Accepted Answer · 2010-10-01 15:40:27Z

4

You're passing a list with two elements to your constructor, each element being one of the array refs you built.

I believe you wanted to pass an array reference containing the other two anonymous array references instead:

TestClass->new(\@my_array);

Your array de-referencing in @{@my_array->[1]}[0] is also a little odd. This is something use warnings; would've caught.

answered Oct 1, 2010 at 15:40

rafl

12.4k2 gold badges59 silver badges80 bronze badges

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

1 Comment

Jim Davis Over a year ago

Agreed. $my_array[1][0] (or $self->{_array}[0][1]) seems easier to read.

Collectives™ on Stack Overflow

Using multi-dimensional array in Perl class

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related