perl - perl: 组合多个一维数组的多维数组

Question

我有多个一维数组 -

@p=(0,1,1,2);
@q=(0,1,3,4);
@r=(0,2,1,5);

现在我必须创建一个包含多个数组的多维数组，包括上面写的那些。

my @array =   (
    'a' => [ 800  ],     #Written manually
    'b' => [ 'A', 'B' ], #Written manually
    'c' => 101,          #Written manually


    'p' => [0,1,1,2],  #Need to bring from the @p  
    'q' => [0,1,3,4],  #Need to bring from the @q
    'r' => [0,2,1,5],  #Need to bring from the @r
);

在@array、'a'、'b'、内部'c'是手动编写的（或已经可用）。现在，我怎样才能把这些@p，@q并@r把它们放在里面@array形成所需的多维数组？

标签： perlmultidimensional-array