Question

How to create a two-dimensional (2D) array in Perl

Answer 1

use warnings;

my @array = ();
foreach my $i ( 0 .. 3 ) {
  foreach my $j ( 0 .. 4 ) {
    push @{ $array[$i] }, $j;
  }
}

foreach my $i ( 0 .. 3 ) {
  foreach my $j ( 0 .. 4 ) {
    print $array[$i][$j], ' ';
  }
  print "\n";
}



## run:
##
## 0 1 2 3 4 
## 0 1 2 3 4 
## 0 1 2 3 4 
## 0 1 2 3 4 
##

 

70+ SQL courses for beginners and professionals

Answer 2

use warnings;

my @array = ();
foreach my $i ( 0 .. 3 ) {
  foreach my $j ( 0 .. 4 ) {
    $array[$i][$j] = $i * $j;
  }
}

foreach my $i ( 0 .. 3 ) {
  foreach my $j ( 0 .. 4 ) {
    printf "%3d", $array[$i][$j];
  }
  print "\n";
}



## run:
##
##  0  0  0  0  0
##  0  1  2  3  4
##  0  2  4  6  8
##  0  3  6  9 12
##

 

70+ SQL courses for beginners and professionals