processing array

perlaroha

I have an array @arr as:

aa bb cc
dd ee ff
gg hh kk
tt yy uu

I need to extract the second coulmn from this & push it to another array called @brr so that it contains only

bb
ee
hh
yy

toolic

Assuming @arr is an Array-of-arrays:

Expand|Select|Wrap|Line Numbers

 
use strict;   

use warnings;

use Data::Dumper;
 
my @arr = (

  [qw(aa bb cc)],

  [qw(dd ee ff)],

  [qw(gg hh kk)],

  [qw(tt yy uu)]

);

my @brr;

push @brr, $_->[1] for @arr;

print Dumper(\@brr);
 
__END__
 
$VAR1 = [

          'bb',

          'ee',

          'hh',

          'yy'

        ];

perlaroha

Thanks toolic for the reply.

processing array

re: processing array

re: processing array

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about