Perlの二次元配列の走査

よく忘れるのでメモ．

BACK全選択

#!/bin/perl
 
my @ARRAY=(["A1", "A2", "A3"], ["B1", "B2", "B3"]);
for(my $i=0;$i<=$#ARRAY;$i++){
  for(my $j=0;$j<=$#{$ARRAY[0]};$i++){
    printf STDERR ("$ARRAY[$i][$j], ");
  }
}

#!/bin/perl my @ARRAY=(["A1", "A2", "A3"], ["B1", "B2", "B3"]); for(my $i=0;$i<=$#ARRAY;$i++){ for(my $j=0;$j<=$#{$ARRAY[0]};$i++){ printf STDERR ("$ARRAY[$i][$j], "); } }