arrays - Perl:从数组创建哈希

Question

如果我有以下数组

my @header_line = ('id', 'name', 'age');

如何从它创建一个相当于下面一行的哈希？

my %fields = { id => 0, name => 1, age => 2};

我想这样做的原因是我可以使用有意义的名称而不是魔数(Magic Number)作为索引。例如:

$row->[$fields{age}]; # rather than $row->[2] 

Answer 1

my %fields;
@fields{@header_line} = (0 .. $#header_line);