доступа/печати энный элемент к югу массива, для каждого массива

Question

У меня есть многомерный массив:

@multarray = ([ "one", "two", "three" ], 
       [ 4, 5, 6, ], 
       [ "alpha", "beta", "gamma" ] 
      ); 

я могу получить доступ @multarray[0]

[ 
    [0] [ 
     [0] "one" 
     [1] "two" 
     [2] "three" 
    ] 
] 

или даже @multarray[0][0]

"one" 

Но как я могу получить доступ к 1-му подэлементу каждого вспомогательного массива? что-то похожее на multarray[*][0] так производят:

"one" 
4 
"alpha" 

Спасибо!

Answer 1

Вы можете использовать map и разыменование каждого массива:

use warnings; 
use strict; 
use Data::Dumper; 

my @multarray = ( 
    [ "one", "two", "three" ], 
    [ 4, 5, 6, ], 
    [ "alpha", "beta", "gamma" ] 
); 

my @subs = map { $_->[0] } @multarray; 
print Dumper(\@subs); 

__END__ 

$VAR1 = [ 
      'one', 
      4, 
      'alpha' 
     ]; 

Смотрите также: perldsc

Answer 2

Используя for() петли, вы можете цикл по внешней массив, и использовать любого из внутренних элементов. В этом примере я установил $elem_num в 0, который является первым элементом. Для каждого цикла по внешнему массиву, мы берем каждый элемент (который является ссылка на массив), а затем, используя переменную $elem_num, мы распечатать содержимое первого элемента внутреннего массива:

my $elem_num = 0; 

for my $elem (@multarray){ 
    print "$elem->[$elem_num]\n"; 
}