かわいいは正義: 7月 2020

2020年7月25日土曜日

Perlの二次元配列の走査

よく忘れるのでメモ．

 
#!/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], ");
  }
}