每次循环运行时如何在perl中生成一个新数组

Question

我正在运行一个循环，每次我需要在新数组中存储一些信息。每次循环运行时如何生成一个新数组，如@ array1，@ array2，@ array3等？

Answer 1

你想要的是一个数组数组，即一个多维数组。

my @arrays;
for my $i(0..10)
{
    $arrays[$i] = ['data1', 'data2'];
}

print $arrays[0][0];
print $arrays[0][1];