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的多维数组

1 个答案: