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”对您很有用。

perl的多维数组

multi dimensional array for perl

perl

perl-module

perl-data-structures