in reply to Re: How do I access only certain elements of a multidimensional array?
in thread How do I access only certain elements of a multidimensional array?

What if I had to choose what rows to pick? I tried the following code and it did not work for me
foreach my $i ( 2 .. $#shapes ) { print $out_ph1 '$_' for @{$i}[ 2 .. $#$i]; print $out_ph1 ''\n"; }
I am trying to access row 2 onwards
  • Comment on Re^2: How do I access only certain elements of a multidimensional array?
  • Download Code

Replies are listed 'Best First'.
Re^3: How do I access only certain elements of a multidimensional array?
by Cristoforo (Curate) on Nov 01, 2015 at 04:55 UTC
    I could think of several ways, but this seemed the easiest to understand and write. :)
    foreach my $aref (@shapes[2 .. $#shapes]) { print join(" ", @$aref[2 .. $#$aref]), "\n"; }
    Output:
    c d e f g h i j k Radio
    Hope this is helpful.
Re^3: How do I access only certain elements of a multidimensional array?
by AnomalousMonk (Archbishop) on Nov 01, 2015 at 12:42 UTC

    Further to Cristoforo's reply above:     Ppeoc: Indeed, the  @shapes array (from the OP) is an array, and an array slice works on any array:

    c:\@Work\Perl\monks>perl -wMstrict -le "my @shapes = ( [qw/circle square triangle polygon/], [qw/red green blue yellow fuschia/], [qw/a b c d e f g h i j k/] , [qw/Movie TV Radio/] , ); ;; for my $arrayref (@shapes[ 2, 0, 2 ]) { printf qq{'$_' } for @{$arrayref}[ 2 .. $#$arrayref ]; print ''; } " 'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k' 'triangle' 'polygon' 'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k'
    Furthermore, the slice list does not have to be a range, but is a list of any indices, including repeats, in any order.

    If you want to create an entirely new array as 2teez is doing with map below, you can do something like this:

    c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my @shapes = ( [qw/circle square triangle polygon/], [qw/red green blue yellow fuschia/], [qw/a b c d e f g h i j k/] , [qw/Movie TV Radio/] , ); ;; my @new_ra = map { [ @{$_}[ 2 .. $#$_ ] ] } @shapes[ 2, 0, 2 ] ; dd \@new_ra; " [["c" .. "k"], ["triangle", "polygon"], ["c" .. "k"]]

    Update: Array and hash slices are a very convenient notational shortcut, but it's possible to avoid them if you wish. Try to understand the slice examples given and try to work out on your own a variation that does not use slices. If you need help with this, please post again in this thread.


    Give a man a fish:  <%-{-{-{-<