用于在for循环中创建增量数组的perl代码

Question

我想在满足特定条件时使用for循环创建数组。这样它必须创建数组说@ a1 @ a2 @ a3 @ a4 ......等等。我试过下面给出的方法。但是，我无法这样做。你能帮助吗

   #/bin/usr/perl -w
   use strict;
   my $i; 
   my $m=0;
           for ($i=0 ; $i<10 ; $i++ ) {
                       $a$m[$i]=$i;
                }
  $m++;
  print @a1;
  print @a2;

我尝试过这种创建数组的方法，但它没有这样做。

Answer 1

创建一个二维数组。

#!/bin/usr/perl -w
use strict;
use Data::Dumper qw( Dumper );

my @a;
my $n = 0;
for my $m (0..1) {
   for my $i (0..9) {
      $a[$m][$i] = $n++;
   }
}

print(Dumper(\@a));

Why it's stupid to use a variable as a variable name