如何使用Perl将数组插入到数组中？

Question

下面是一段Perl代码。我想通过使用不同正则表达式（$myo）和不同运算符（$op）的若干查询循环并将结果保存到一个数组数组，而不是一个大的数组@result。

即，结果为MYO[0-9]*$阵列将是为每个操作员$results[0][0]，$results[0][1]阵列...和MYO[0-9]*R$，$results[1][0]，$results[1][1]。

任何想法？

my @tech_ops = ("AR","DB","GM","LW","MM","SA"); 
    my @results; 

    for my $myo (qw(MYO[0-9]*$ MYO[0-9]*R$ MYO[0-9]*T$ MYO[0-9]*U$)) { 
     foreach $op (@tech_ops) 
     { 
      $sth->execute($myo, $date_stop, $date_start,$op) 
     or die "Couldn't execute query for $myo: " . $sth->errstr; 
      push @results, $sth->fetchrow_array; 
     } 
    } 

Answer 1

my @tech_ops = ("AR","DB","GM","LW","MM","SA"); 
my @results; 

for my $myo (qw(MYO[0-9]*$ MYO[0-9]*R$ MYO[0-9]*T$ MYO[0-9]*U$)) { 
    my @myo_results; 
    foreach $op (@tech_ops) { 
     $sth->execute($myo, $date_stop, $date_start,$op) 
      or die "Couldn't execute query for $myo: " . $sth->errstr; 
     push @myo_results, $sth->fetchrow_array; 
    } 
    push @results, \@myo_results; 
} 

Answer 2

使用fetchall_arrayref方法，而不是fetchrow_array方法。

所以只需更换这行：

push @results, $sth->fetchrow_array; 

这一行：

push @results, $sth->fetchall_arrayref; 

Here is the documentation for all the DBI statement handler methods.

Answer 3

你可以只使用一个数组引用：

my $ref; 
for my $i (1..10) { 
    for my $j (1..10) { 
     push @{$ref->[$i]}, $j; 
    } 
} 

这会做到这一点。

编辑：这将创建一个10x10矩阵的引用。