arrays - 在 Perl 中动态创建数组

Question

我想根据用户输入动态创建数组。例如，如果用户输入 3，则应创建三个数组，名称分别为 @message1、@message2 和 @message3。

如何在 Perl 中执行此操作？

Answer 1

不要。相反，使用数组的数组:

my @message;
my $input = 3;
for my $index ( 0..$input-1 ) {
    $message[$index][0] = "element 0";
    $message[$index][1] = 42;
}
print "The second array has ", scalar( @{ $message[1] } ), " elements\n";
print "They are:\n";
for my $index ( 0..$#{ $message[1] } ) {
    print "\t", $message[1][$index], "\n";
}

一些有用的规则位于 http://perlmonks.org/?node=References+quick+reference