Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Multidimensional arrays within arrays

by Kenosis (Priest)
on Jan 22, 2013 at 19:09 UTC ( #1014765=note: print w/ replies, xml ) Need Help??


in reply to Multidimensional arrays within arrays

Perhaps the following structure would be helpful:

use strict; use warnings; use Data::Dumper; my @list = 1 .. 15; my @array; my $i = 1; while ( my ( $i, $j, $k ) = splice @list, 0, 3 ) { push @array, [ [ $i, $j, $k ], [ 44, 55, 66, 22 ] ]; } for my $arr (@array) { print "@{ $arr->[0] }: @{ $arr->[1] }\n"; } print "\n", Dumper \@array;

Output:

1 2 3: 44 55 66 22 4 5 6: 44 55 66 22 7 8 9: 44 55 66 22 10 11 12: 44 55 66 22 13 14 15: 44 55 66 22 $VAR1 = [ [ [ 1, 2, 3 ], [ 44, 55, 66, 22 ] ], [ [ 4, 5, 6 ], [ 44, 55, 66, 22 ] ], [ [ 7, 8, 9 ], [ 44, 55, 66, 22 ] ], [ [ 10, 11, 12 ], [ 44, 55, 66, 22 ] ], [ [ 13, 14, 15 ], [ 44, 55, 66, 22 ] ] ];

A reference to a reference to three values from @list and a reference to a four-element list is push onto @array. The for loop iterates through the list of references, and prints their dereferenced values. A dump of @array shows the structure.

Within the for loop, elements can be access as follows:

[ [ $i, $j, $k ], [ 44, 55, 66, 22 ] ] ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ | | | | | | | | | | | | | | | | | | | + - $arr->[1][3] | | | | | | | | + - $arr->[1][2] | | | | | | | + - $arr->[1][1] | | | | | | + - $arr->[1][0] | | | | | + - $arr->[1] | | | | + - $arr->[0][2] | | | + - $arr->[0][1] | | + - $arr->[0][0] | + - $arr->[0] + - $arr


Comment on Re: Multidimensional arrays within arrays
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014765]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2014-12-26 15:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls