How to traverse a two dimentional array in a constructor?

Hossein has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I have the constructor below.

When $self->{INTERFACE = []; was a one dimentional array, I could asign values and get alle the values:

But when $self->{INTERFACE} = ([],[]); is two dimentional array, I CAN asign values which Data::Dumper approve, BUT I can NOT get these values properly :(

All objects are stored in @fw. push (@fw, $self); How can I "traverser" the @fw and get values in: $self->{INTERFACE}?

Thank you :)

sub new {
  $Census++;
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self  = {};
  $self->{NAME}           = undef;
  $self->{DESCRIPTION}    = undef;
  $self->{INTERFACE}      = ([],[]);
  $self->{ROUTINGTABLE}   = ([],[]);
  $self->{SHAPEID}        = undef;
  $self->{MASTERSHAPE}    = undef;
  bless ($self, $class);
  return $self;
}
[download]

The result of Dumper

$VAR3 = bless( {
                 'INTERFACE' => [
                                  [
                                    'xxx.xxx.xxx.xxx',
                                    '255.255.255.0',
                                    'EMPTY',
                                    'xyz',
                                    'abc',
                                    'EMPTY'
                                  ],
                                  [
                                    'xxx.xxx.xxx.xxx',
                                    '255.255.255.0',
                                    'EMPTY',
                                    'fds',
                                    'wer',
                                    'EMPTY'
                                  ]
                                ],
                 'NAME' => 'myname',
                 'DESCRIPTION' => undef,
                 'ROUTINGTABLE' => [
                                     [
                                       'xxx.xxx.xxx.xxx',
                                       '255.255.255.255',
                                       'xxx.xxx.xxx.xxx',
                                       'gfd',
                                       'zxc',
                                       'DMZ'
                                     ],
                                     [
                                       'xxx.xxx.xxx.xxx',
                                       '255.255.255.255',
                                       'xxx.xxx.xxx.xxx',
                                       'gfr',
                                       'dbc',
                                       'DMZ'
                                     ]
                                   ]
               }, 'NT::FW' );
[download]

Comment on How to traverse a two dimentional array in a constructor? Select or Download Code

Replies are listed 'Best First'.
Re: How to traverse a two dimentional array in a constructor? (on airplane list) by Anonymous Monk on Jun 25, 2013 at 08:38 UTC
:) You've got a list, and when assignment is complete, you've got a flat array in single dimension You want `[ [ '00' , '01' ], [ '10','11' ] ]` perlintro/perldata/ Modern Perl ch 3/perlreftut	[reply] [d/l]
Re: How to traverse a two dimentional array in a constructor? by Anonymous Monk on Jun 25, 2013 at 09:56 UTC
The result of Dumper It appears in other parts of your code you populate INTERFACE/ROUTINGTABLE in two dimensions correctly, so same deal to access it, perl way `my $ref = [ [ 1..3], [9..11] ]; for my $first ( @$ref ){ for my $item ( @$first ){ print $item; } } __END__ 12391011` [download] The perl way :) `my $ref = [ [ 1..3], [9..11] ]; for my $xi ( 0 .. $#{ $ref } ){ for my $yi( 0 .. $#{ $ref->[ $xi] } ){ print $ref->[ $xi ][ $yi ]; } } __END__ 12391011` [download] See also references quick reference, Data::Diver, Re: Parsing SOAP::Lite results (with Data::Diver) Great, an update , just mark it How do I change/delete my post?	[reply] [d/l] [select]
Re^2: How to traverse a two dimentional array in a constructor? by Hossein (Acolyte) on Jun 25, 2013 at 10:43 UTC
Thank you for your answer. When I work with multiple dimentional array, or nested hashes, everything works just fine. BUT here, when I try to do OO (newbe) I realy am in truble. What I can't do is to get the values on those objects which are stored in @fw in the tight way. I need to traverse @fw in order to display vales, but every time I try, it fails! I need help to know how shall I travers @fw to get currect values. `$fw = [ $var1= bless( { 'INTERFACE' => [ [],[],[] ], 'NAME' => 'myname', 'DESCRIPTION' => undef, 'ROUTINGTABLE' => [ [],[],[] ] }, 'NT::FW' ); $var2= bless( { 'INTERFACE' => [ [],[],[] ], 'NAME' => 'myname', 'DESCRIPTION' => undef, 'ROUTINGTABLE' => [ [],[],[] ] }, 'NT::FW' ); ]` [download]	[reply] [d/l]
Re^3: How to traverse a two dimentional array in a constructor? by Anonymous Monk on Jun 25, 2013 at 10:56 UTC
... I repeat myself ... maybe you want to show what you tried?	[reply]
Re^4: How to traverse a two dimentional array in a constructor? by Hossein (Acolyte) on Jun 25, 2013 at 12:28 UTC