アクセスは、すべての配列

Question

のために私は多次元配列があります。

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

を私は@multarray[0]

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

あるいは@multarray[0][0]

"one" 

にアクセスすることができますしかし、どのように私はアクセスするすべてのサブ配列の最初のサブ要素を言う？ 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に設定しました。ちょうどFYI

my $elem_num = 0; 

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