将一个数组中的索引和另一个数组中的值合并到一起（使用 Perl）。

Question

如何将两个数组合并成一个关联数组；一个数组包含键列名，另一个数组包含值？

我尝试将一个数组推入另一个数组，但是它们仅被附加为列表，而没有组合在一起。非常感谢您的帮助。谢谢！

my @var1 = {'COL1', 'COL2', 'COL3'};
my @var2 = {  '1' ,  '2'  , '3'   };

...

new array %var3 = {'COL1' => '1', 'COL2' => '2', 'COL3' => '3'} 

- Luis Berumen

Answer 1

首先是一些注释。数组使用简单的括号(和)。

你可以使用哈希切片构造哈希：

my @keys = ('COL1', 'COL2', 'COL3');
my @values = ( '1' , '2' , '3' );

my %hash ;
@hash{@keys} = @values ;

这将为您提供所需的哈希值。

- dgw

Answer 2

使用哈希切片：

my %var3;
@var3{ @var1 } = @var2;

- Jim Davis

---

谢谢，这个完美运作！ - Luis Berumen

@LuisBerumen 如果上述答案解决了您的问题，您应该接受答案。如果有任何其他信息或替代解决方案，您可以与其他成员分享。 - Rahul Sharma