2次元配列からperlで行ごとにデータを取得する方法は？

Question

私は@ array_of_boardsという名前の配列を持っており、その中のデータは [{1,2,3},{4,5,6},{3,4,5}]のようになります。

テーブルに挿入する必要があるので、この配列をループしてデータを行単位でフェッチする方法を教えてください。

ColA,ColB,ColC 
1,2,3 
4,5,6 
3,4,5 

my @array_of_boards=(0,0,0); 
my @temp_array = (1,2,3); 
push @array_of_boards,@temp_array 
@temp_array = (4,5,6); 
push @array_of_boards,@temp_array 
@temp_array = (3,4,5); 
push @array_of_boards,@temp_array 

私はこれを使用しようとしましたが、データを正しくアライメントすることができませんでした。

foreach my $row (@array_of_boards){ 
    my ($ColA,$ColB,$ColC)=$row; 
    ##followed by printing statements 
} 

Answer 1

このコード：

my @array_of_boards = (0, 0, 0); 
my @temp_array = (1, 2, 3); 
push(@array_of_boards, @temp_array); 

がこれに相当します

my @array_of_boards = (0, 0, 0); 
push(@array_of_boards, 1, 2, 3); 

そして、あなたはData::Dumperからの出力で見ることができる6つの要素を、含む配列を生成します。

$VAR1 = [ 
      0, 
      0, 
      0, 
      1, 
      2, 
      3 
     ]; 

ようなのでその代わりに、外側配列の各要素は、配列の参照すべきである：

my @array_of_boards = ([0, 0, 0]); 
push(@array_of_boards, [1, 2, 3]); 

これは、次のデータ構造をもたらす：

：意図されたように、次にアクセスすることができる

$VAR1 = [ 
      [ 
      0, 
      0, 
      0 
      ], 
      [ 
      1, 
      2, 
      3 
      ] 
     ]; 

を

for my $array_ref (@array_of_boards) { 
    my @row = @$array_ref; 
    ... 
}