多维数组的Perl

Question

我想使用将数据推到一个多维数组在Perl

如quality_list[i][j] ：

push(@quality_list, $string_list, $qp); 

但是，我想，我不能使用它。你能帮我解答吗？

@se1s = ('1','5','8'); 
@se2s = ('3','2','4'); 

sub test() 
{ 
foreach $se1(@se1s) 
    { 
    foreach $se2(@se2s) 
    { 

    push(@quality_list, $se1, $se2); 

    } 
    } 
} 

我希望如：

quality_list[1][0] = 1 
quality_list[1][1] = 3 


quality_list[2][0] = 5 
quality_list[2][1] = 2 

Answer 1

这不是真的清楚自己想要什么。但是这似乎得到了你所要求的结果。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

use Data::Dumper; 

my @se1s = ('1','5','8'); 
my @se2s = ('3','2','4'); 

my @quality_list; 

foreach (0 .. $#se1s) { 
    push @{$quality_list[1]}, $se1s[$_]; 
    push @{$quality_list[2]}, $se2s[$_]; 
} 

say Dumper \@quality_list; 

我认为阅读“perldoc perldsc”将会对你非常有用。